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This Month & Next 


With the growing acceptance of Forth-83, we expect to see more energy being 
put into designing useful Forth applications and less into discussion of how Forth 
should be implemented. This year’s Forth issue reflects that expectation. A quick 
perusal of the facing page will reveal a Fast Fourier Transform package, a cross 
compiler for the MC68000, and a file maintenance package. There is also an 
article which uses Forth words to examine some programming issues. That the 83 
Standard did not cover everything is also in evidence. You might want to exam- 
ine the FVG floating-point extension to see what some folks are doing until the 
next meeting of the Forth Standards Team. 

One theme that emerged this month, in both the FFT article and in the C/Unix 
Programmer’s Notebook, was the use of complex numbers in programs. Those 
interested in more detail on the topic should stay tuned for an article next month 
that discusses complex numbers in greater detail. Also next month, we will fea- 
ture a Unix-like generalized regular expression parser. In addition to all our 
regular columns, we will introduce The Software Designer, a new column focus- 
ing on a wide range of programming issues. 


A Quick Fix for Subscription Bugs 


By September 7, 1984, all subscribers, current and former, should have received 
a letter from our Circulation Department explaining that we recently contracted 
an excellent West Coast fulfillment service in an effort to serve you even better. 
We are anxious to clear up any problems you may have been having with your 
subscription, and we are giving you a golden opportunity to have those problems 
fixed. Accompanying the letter is a form for documenting any difficulties you are 
experiencing. If you need your address changed, your expiration date corrected, 
missing issues supplied, or some other adjustment, this is the best way to ensure 
quick action. In fact, if you have not received the letter yet (that may tell you 
something), you should call our fulfillment firm toll-free at 1-800-321-3333 (in- 
side CA dial 1-619-485-6535); or drop Circulation a note (preferably with a 
magazine label) at 2464 Embarcadero Way, Palo Alto, CA 94303. 


aid at Palo Alte ued 


This Month’s Referees 


Dr. Dobb’s Journal regularly draws on the expertise of a Board of Referees for ‘ 
. McGill's sex — PrY LID technical evaluation of material submitted for publication. In addition to re- 
pes mae marks to the editors concerning accuracy and relevance of manuscripts, the ref- 
erees often provide constructive comments for authors regarding clarity or com- 
pleteness. The referees who contributed to this month’s issue are: 
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: rofit, educational Corporation, | : - Kim Harris, Dysan Corporation 
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EDITORIAL 








Cortesi argues that programming is a craft. “Like [woodworking, pottery or 

blacksmithing], programming has the goal of producing utilitarian objects. 
Like those crafts, its practice calls for the application of skills developed by long 
practice, and for the application of the artisan’s own good taste and imagination 
to the elaboration of conventional designs. And like any good craftperson, the 
good programmer strives to reach beyond mere utility to efficiency, elegance, 
and beauty.” 

Not everyone agrees; C.A.R. Hoare (in JEEE Software, April 1984) wants to 
claim that programming “has transcended its origins as a craft, has avoided the 
temptation to form itself into a priesthood, and can now be regarded as a fully- 
fledged engineering profession.” I think Dave is closer to the truth, and that the 
forces pushing programming in the direction of an engineering discipline are the 
same forces that would maintain the priesthood. Programming as a craft is at 
least a good metaphor, and provides a context for discussing programming’s 
design aspect. 

The programmer’s taste and imagination produce different approaches to soft- 
ware design, such as whether the programmer works alone or on a team, writes in 
C or in Ada, feels like a craftsperson or an engineer. “One does not use structural 
engineering analysis to build a sandcastle,” Hoare says, “But neither does one 
choose the prize-winning builder of sandcastles as an architect for a tower block 
of offices in a city.’’ Sandcastles vs skyscrapers? Hoare’s distinction shows a bias 
toward the engineering style; I think that a more meaningful distinction is that 
between those problems that an individual can’t solve (and that therefore require 
an engineering-team approach) and those that only an individual can solve. 
Maximizing efficiency, for example. Efficiency rewards tricky programming, 
and tricks are anathema to the engineering team approach. 

The craft metaphor fits in other ways, too. As is typical of artisans, program- 
mers often don’t benefit from their own craft. Software designers routinely work 
with inadequate, ill-designed tools. Hoare would applaud ‘“‘when a software engi- 
neer designs a [software tool] that can be fully defined in 20 pages whose rival 
product has been inadequately defined in 100 pages... .” 

Perhaps the designers of software tools should stop designing “utilities” and 
start designing “efficiencies,” “‘“elegances,” and “‘beauties.”’ 

Whether we call programming a craft, an art, an applied science, an engineer- 
ing discipline, black magic, or a religion (you thought this editorial had nothing 
to do with Forth, didn’t you?), we should not lose sight of the importance of its 
design element. Starting next month in our new column The Software Designer, 
we will call upon some working software designers to help us examine what 
makes good design, and why that question has different answers in different task 
domains. We'll look into different programming styles and ask why some pro- 
grammers work in Forth or C while others use Ada or Modula-2. We'll ask 
designers what (currently nonexistent) tools they would most like to have. We’ll 
examine software design in diverse environments: under Unix, on a Mac (no, not 
“for a Mac, on a Lisa’), and in logic (i.e., Prolog). And we'll examine the kind of 
programming this magazine was founded to foster back in 1976: highly-efficient 
code, or as we put it then, “running light without overbyte.” 


Michael Swaine 


n A Programmer's Notebook: Utilities for CP/M-80, our resident intern Dave 
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Making Languages English 
Independent 


Dear DDJ, 

I was delighted to see the article on 
Chinese Forth in the June 1984 issue 
of DDJ. In many ways this is one of the 
most significant articles you have ever 
published because it recognizes for the 
first time that not everybody, or even a 
majority of the world’s population, 
speaks English, and that to use a pro- 
gramming language based on English 
is to deny the non-English speaking 
majority easy access to the pleasures of 
personal computing. 

There are two main approaches to 
rectifying the problem. One, as exem- 
plified by APL, is to eschew natural lan- 
guage words altogether in favor of ideo- 
graphic symbols. The second approach, 
used by Timothy Huang, is to take an 
existing language that allows redefini- 
tion of function names, and then re- 
name them in the new language. 

Probably the easiest computer lan- 
guage in which to do this is SAM76, 
described in your pages a few years 
back. It actually possesses a primitive 
function ‘@cn’ that can be used to 
change the name of any primitive 
function. Using it, I have created a ver- 
sion of SAM76 that has all its primi- 
tives named in Polish. A new language 
called HERPES that I am currently 
working on also includes this feature. 

It is a pity more was not said about 
the problems of printing Chinese text. 
For some natural languages, the prob- 
lem of printing and displaying texts 
may easily exceed that of changing the 
keywords in the programming lan- 
guage. Chinese presents particular 
problems both in the complexity of the 
characters and the sheer quantity of 
them. Others with a lesser order of 
complexity are Arabic (with context- 
dependent letter shapes) and the Deva- 
nagari script (used for Sanskrit, Hindi 
and other tongues of North India) 
where two or three letters are regularly 


8 


combined to form composite charac- 
ters, even across the word boundary. I 
am currently struggling with the prob- 
lem of printing Sanskrit on a Gemini 
10X and it is not a trivial exercise. 
Earlier I mentioned SAM76. Does 

anybody else use it? I haven’t heard 
anything about it for about five years 
now and wondered if I were the only 
user. I find it unexcelled for programs 
manipulating character and text data, 
in fact most things except number 
crunching, where it is slow and suffers 
from awkward syntax, though the un- 
limited precision is often useful. Final- 
ly, for the linguists among you, I en- 
close a piece of text printed on a 
Gemini 10X using a polyglot word pro- 
cessing program written in SAM/76 
(see Figure 1, below). What language 
is it? (No prizes!) 

Sincerely, 

Greg Trice 

1131 Sandhurst Circle #111 

Scarborough Ontario 

MI1V 1V5, Canada 


Dear DDJ: 

I was very impressed with the ideas 
presented by Timothy Huang in his ar- 
ticle “First Chinese Forth—a Double- 
Headed Approach” which appeared in 
DDJ No. 92 (June, 1984). Mr Huang 
has brought attention to a topic that 
merits further discussion and explora- 
tion. In my view, the problem of natu- 
ral language barriers to the use of com- 
puter languages should be attacked at 
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several levels. One solution is the use of 
translated keywords, as supported by 
Chinese Forth. For introductory 
teaching applications, instructions giv- 
en to the computer should be as natu- 
ral as possible. Thus, BASIC, Logo and 
other teaching languages should prob- 
ably have translated command- 
sequences whereever English is suff- 
ciently foreign to inhibit the use of the 
computer. However, software portabil- 
ity would become infeasible if each 
community utilized its own keywords 
to the exclusion of all others. This di- 
lemma requires its own solution. 

If computer language keywords 
were translated for each of the major 
natural languages, we would have a 
virtual tower of Babel in the computer 
world. At the moment, we have many 
different programming languages, but 
these languages are typically driven 
only with English-derived instruc- 
tions/keywords. Programs created un- 
der Chinese Forth would not only be 
foreign to English speakers, but would 
also be foreign to Indonesian Forth, 
French Forth or even Japanese Forth 
programmers. Under such circum- 
stances, programming communities 
would factionalize along natural lan- 
guage lines. Sharing software would be 
less possible, and the literature of any 
specific community would be much 
less valuable to other communities. 
This would magnify the problem of 
repetition of effort and would most se- 
riously hurt nations that are underde- 
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_ Figure 1. 
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veloped in the computer sense. 

One solution to the problem might 
be to restrict programming to lan- 
guages that lack any English key- 
words. This remarkably strong restric- 
tion essentially leaves only APL or 
direct, machine-code programming. 
APL is suitable for a large number of 
applications, but isn’t for everyone. 
Furthermore, asking a whole world of 
programmers to work with one lan- 
guage is not reasonable in the least. 

On the other hand, an important les- 
son can be gained from looking at 
APL’s instruction mnemonics. These 
symbols suggest a compromise between 
keyword translation and the use of 
APL. We could create a set of symbolic 
keywords for a variety of languages; 
these keywords would bear no English 
dependence. Such keywords would en- 
sure some degree of machine readable 
portability between communities, and 
simultaneously allow listings in the lit- 
erature to become more accessible. 

In order to demonstrate this idea, I 
devised a set of symbols for the C pro- 
gramming language (see Table 1, page 
10). These symbols replace the compil- 
er keywords and preprocessor com- 
mands as listed in The C Programming 
Language. Since C has no intrinsic 
functions, there was no need to create 
symbols for a large set of such internal 
functions. (Creating symbols for the 
standard input-output library names 
and definitions is, I believe, beyond the 
scope of this discussion). 

The symbols presented in Table 1 
themselves represent a compromise. 
They were selected from among those 
available on an IBM Personal Comput- 
er (or compatible). This was done so 
that this software concept could be 
used immediately without the need to 
invent new character generators, as 
with APL. However, these symbols are 
reasonably good and could be a practi- 
cal symbolic replacement for C’s En- 
glish keywords. Rationale for the 
choice of the various symbols is includ- 
ed in Table 2 (page 10). 

Many programmers will find the 
symbolic keyword alternative inferior 
to the use of natural language 
keywords. However, the symbolic lan- 
guage concept is still useful. It offers a 
means by which programmers can 
share software. Once they have the 
symbolic form of the program, a 
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straightforward translator could be 
used to convert the code to their own 
particular keyword syntax. A reverse 
translator could be used before soft- 
ware is distributed (or published). Yet 
another translator could preprocess 
foreign keywords (into English equiva- 
lents) so that standard compilers could 
continue to be used. 

The symbolic language does not 
help with documentation aspects of 
portability. Software documentation 
would have to be translated, as would 
command prompts and other text with- 
in the code itself. (I see no clear way to 
solve this problem, except by encour- 
aging documentation in multiple natu- 


ral languages. ) 

In this brief commentary, I’ve ad- 
dressed another approach designed 
both to open the computer world to 
non-English speakers and to have an 
impact on keyword translation to soft- 
ware portability. I hope that others will 
feel free to comment in order to contin- 
ue the dialog in this area. 

Sincerely, 

Anthony Skjellum 
Pyramid Systems, Inc. 
1695 Shenandoah Road 
San Marino, CA 91108 
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speeds that will shame many $100K plus minicomputer systems. 
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Delivered w/ sources , logics, & monolithic 
program development software 


Easily installed on ANY Z80 CPM system 
CP/M-68K and DRI’s new UNIX V7 compatible 
C complier (w/ floating point math) - standard 
feature 

Can be used as 768K CPM80 RAM Disk 
Optional Memory parity 

No programming or hardware design required 
for installation 

Optional 12 month warrantee 


PRICES START AS LOW AS $899.00 for a CO1668 with 256K RAM, CPM68K, C Complier, Sources, 
Prints, 200 page User Manual, Z80 Interface, and 68000 System Development Software. 


For further information about this revolutionary product or our Intel 8086 Co-Processor, please send $1 


[no checks please] or call: 


Hallock Systems Company, Inc. 


262 East Main Street 


Frankfort, New York 13340 


(315) 895-7426 
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(float) Ne pecific reason 
(double) No specific reason _ 
 (tuch _ Epsilon looks like mathematical ‘b ‘belongs’ 
union) | __ Intersection sign is opposite of union sign 
_ ~——sitieng) Double bar through a negative ee 
{shon) ___No specific reason 
(unsigned) Double bar through a negative sign 
to Alpha is the first Greek letter, ‘analogous t to’ ‘a “ie auto 
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(return) 
(sizeof?) 
(break) 
(continue) 
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: - : a arrow less bottom nde continuation 
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symbolises interrogative 

— Reads ‘if defined’ 
Reads ‘if not defined’ 
Decision diamond symbolizes else 
Endif is opposite symbol to if 
Pound sign supposed to look like a fancy ‘I’ for line 
Mathematical define symbol __ 

_ Reads ‘un-define’ 

Paragraph mark since this causes more text to be read 








scellaneous | 
main( ) Section mark to indicate main program section 


Table 2. 
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LUMPILER™ 


WordTec 


dBASE II®. And we are introducing it with a speci 


INSU SSIN BIN @ ee 


Now you can write compiled, efficient programs that will execute 
independently of dBASE II, and without RunTime®. 


NO {EICENSE FEES 


You only buy dB Compiler™ once. You may compile as many 
applications as you wish, FOREVER, with no additional fees. 


SEER 


Application programs are compiled into low level code and only 
include program functions that are absolutely necessary. 


SECURITY 


Compilation is far better than encryption for protecting your 
programming insights and procedures. 


PORTABILITY 


1OSter:ael sm Gelso io ke ceu a isl Comm ieleme: tome oxeelee(avaejeetcaels 
system to generate code for various target environments. 


Suggested retail price: $750; additional target modules: $350 
Special Offer: Compiler and an additional target module: $750 


Offer expires 7/15/84. Corp/multi-user licenses available. 





cgi6 COMPILER” 


WORDTECH SYSTEMS __ P.O. Box 1747, Orinda, CA94563 = (415) 254-0900 
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by D. E. Cortesi, Resident Intern 


Lose That Ugly FAT 

“Just as your mailbag ran dry,” writes 
Chet Floyd, “the FAT on my IBM PC 
XT’s hard disk was clobbered during a 
Pascal compile.” Uh, sorry, Chet. And 
the rest of you take warning—keep 
those letters coming or make lots of 
backups! But to return to Chet’s 
story... 

“It was a disastrous encounter with 
what I suspect is a bug in PC-DOS 2.00. 
PASI used the first sector of the FAT as 
a directory. I do not have a definite an- 
swer to the problem, just a couple of the- 
Ories you may wish to explore or 
explode. 

“First, the players: IBM-DOS 2.0, 
MS Pascal 3.13, a nearly full hard 
disk, and 640K of memory busy with 
an AST memory disk and spooler, 
Btrieve, and MultiJob running 250K 
and 128K partitions. The compiler was 
in the larger partition, Personal Editor 
in the smaller. I’ve used this configura- 
tion for at least seven months, with 
3.13 replacing the 1.0 compiler three 
months ago. The conglomeration has 
worked flawlessly. 

‘*Then the crash occurred, with 
PASI vaguely indicating a ‘File Access 
Error.’ When I got around to inspect- 


ing the FAT, it was obvious that the 


first sector had been used for the direc- 
tory entries of the work files PAS] 
builds; there were three entries there, 
and the rest of the sector was set to 
zeros. Of course, the backup copy of 
the FAT was similarly bent. 

“This caused the 300-odd clusters 
controlled by this FAT sector to ‘van- 
ish.’ About 1.5 megabytes instantly be- 
came free; this didn’t include the files 
controlled by directories that had re- 
sided in those 300 clusters. 

‘The theory I favor is that DOS can- 
not recover the multilevel error that re- 
sults when both the current directory 
and the device are full. When PAS] 
tried to create the first work file, DOS 
inspected the FAT and found no space, 
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leaving the disk sitting at the first sec- 
tor. But this error was perhaps not 
passed back, and DOS just used the 
current disk location to create another 
cluster for the directory. An alterna- 
tive theory is that MS Pascal does its 
own disk I/O. 

“Upon notifying Microsoft, I was 
told of a new version of MS Pascal, 3.2, 
which is supposed to have better disk- 
full recovery. I ordered it immediately, 
because new version is the code word 
for your bug is fixed. I asked why I, as 
a registered ISV and MS Pascal user, 
hadn’t been notified that version 3.13 
had been superseded. ‘We don’t have 
the database built yet, but we’re trying 
to get to it.’ So much for ISV support. 

“T also contacted B& L Computing, 
the developer of MultiJob. To his cred- 
it, Bob Hudson, who wrote MultiJob, 
said he wished he could absolutely rule 
his code out of responsibility for the 
crash, but wouldn’t, because of the 
black-box nature of parts of DOS. 
However, I am inclined to rule out 
MultiJob as the culprit. 

“Although my backup procedures 
ensured that I would suffer no perma- 
nent loss of data, I was surprised at how 
much I had depended on my ability to 
reconstruct files as an excuse not to 
back them up. Reconstruction took sev- 
eral days and was traumatic enough to 
dissuade me from trying to force the 
condition or test my theories in any 
other way. I consider myself lucky to 
have been able to recover, because my 
backup strategy had never been sub- 
jected to the acid test of actual 
recovery.” 

Comments, anyone? 


A RAM -Drive is not a Sheep 
Roundup 

Reader Leonard Schwab was interest- 
ed in our report on installing an Elec- 
tra-Logics Quasi-Disk. He had just 
completed a more challenging installa- 
tion. “Recently, I obtained a Compu- 


Pro M-Drive-H board for my six-year- 
old IMSAI VDP-80. 

‘““CompuPro provides very little in- 
formation about installing the M- 
Drive in a non-Godbout system. The 
documentation talks about installation 
software that did not come with my 
board. There is a model driver routine 
in the manual, but some crucial points 
are omitted. You must analyze the 
model driver to discover the nature of 
the data required by the board during 
accesses, and nothing is said about the 
technicalities of formatting the board 
on a cold start. Needless to say, this 
only sweetened the challenge.” 

Schwab eventually ended up rewrit- 
ing all the disk-handling code of his Fi- 
scher-Freitas BIOS. In the process, he 
was able to add automatic density-sens- 
ing for his Persci floppies. He found 
that he could copy the system image to 
the M-drive during a cold start, so that 
warm starts became almost instanta- 
neous, and he adjusted the system so 
that submit jobs would run with no disk 
accesses at all. These actions trans- 
formed his system, he says. 

If anyone else is having trouble inte- 
grating the CompuPro M-drive into a 
non-CompuPro system, Schwab is 
willing to advise. Send us a note and 
we'll pass it on. 


I'm OK, UART Confused 
Yeah (sigh), wouldn’t it be nice if 
CompuPro’s manuals were as good as 
the boards they describe? We just 
spent 15 hours integrating an Inter- 
facer 4 into our system. It replaces an 
antique Interfacer 1, one of whose two 
ports died when we misjumpered it. 
Fifteen hours is too damn much 
time. Now, it isn’t all CompuPro’s 
fault. We spent the largest part of the 
time trying to comprehend the inter- 
faces between the software and the 
board, between the board and the RS- 
232 connection, and between RS-232 
and the devices that we wanted to con- 
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nect to the system. 

But the manual could have been a 
lot more help. For instance, it could 
have used a consistent way of referring 
to the three serial ports on the board. If 
you have an Interfacer 4, memorize 
this list: 


¢ User | or User 5 is Port C; it’s on the 
right. 

e User 2 or User 6 is Port B; it’s in the 
middle. 

e User 3 or User 7 is Port A; it’s on the 
left. 


Simple, isn’t it? (No!) It would have 
been even nicer if the writer had used 
standard terminology for the RS-232 
configurations: DCE and DTE, not 
“master” and “slave” (now, which was 
“master”? Oh yeah, the terminal—I 
mean, DTE'; ;-; ). 

Because the serial ports are the same 
on at least three CompuPro boards 
(the System Support | and the Inter- 
facers 3 and 4), we documented what 
we learned. We present it here for the 
benefit of any reader that needs it. 


DCE and DTE 

There are two actors in a standard RS- 
232 connection. They are called the 
data terminal equipment, or DTE, and 
the data communications equipment, 
or DCE. The names are standard-ese 
for “terminal” and “modem”; that is, a 
terminal-type device normally plays 
the DTE role, and a modem-type de- 
vice plays the DCE role. 

The RS-232 interface is used be- 
tween many sorts of devices. Some- 
times it isn’t obvious what role a device 
should be expected to play. In general, 
a device that is an original source of 
(or a final sink for) data, will play the 
DTE role. A printer, a plotter, a digitiz- 
ing tablet, or, of course, a terminal, 
will play the part of the DTE. The 
other actor in the connection—usually 
a computer or a modem—must take 
the role of DCE. 

A personal computer may be called 
on to play either role, depending on the 
application. When the computer is 
connected to a device that is clearly a 
DTE, the computer must act as the 
DCE, but when the computer is hooked 
to a modem, it must act as the DTE. 
When two computers are connected di- 
rectly to each other, it doesn’t matter 
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Use Pmate™ once, and you'll 
never go back to an ordinary 
text editor again. Pmate is more 
than a powerful programmer's 
text processor. It’s an inter- 
pretive language especially 
designed for customizing text 
processing and editing. 

Just like other powerful edi- 
tors, Pmate™* features full-screen 
single-key editing, automatic 
disk buffering, ten auxiliary 
buffers, horizontal and vertical 
scrolling, plus a ‘garbage 
stack’’ buffer for retrieval of 
deleted strings. But, that's just 
for Openers. | 

What really separates Pmate 
from the rest is macro magic. A 
built-in macro language with 
over 120 commands and single- 
keystroke ‘‘Instant Commands” 
to handle multiple command 


Most Program Editors 
Are Shockingly Primitive. 





sequences. So powerful, you 
can ‘“‘customize’’ keyboard 
and command structure to 
match your exact needs. 

Get automatic comments on 
code. Delete comments. Check 
syntax. Translate code from 
one language to another. Set 
up menus. Help screens. You 
name tt. 

And, Pmate has its own set 
of variables, if-then statements, 
iterative loops, numeric calcu- 
lations, a hex to decimal and 
decimal to hex mode, binary 
conversion, and a trace mode. 
You can even build your own 
application program right 
inside your text processor. 

So, why work with primitive 
tools any longer than you have 
to? Pmate by Phoenix. $225. 
Call (800) 344-7200, or write. 


Phone? 


Phoenix Computer Products Corporation 
1416 Providence Highway, Suite 220 


Norwood, MA 02062 


In Massachusetts (617) 762-5030 


*Pmate is designed for microcomputers using the Intel 8086 family of 
processors, and running MS-DOS™ A custom version is available for 
the IBM PC, TI Professional, Wang Professional, DEC Rainbow, 
and Z80 running under CP/M™ 


Pmate is a trademark of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation. CP/M is a trademark of Digital Research, Inc. 
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which one plays which role—but both 
cannot play the same role. 

One more point: the DCE actor nor- 
mally is equipped with a female DB-25 
socket, while the DTE actor is normally 
equipped with a male DB-25 plug. The 
presence of a female connector should 
indicate that a device is wired to play 
the DCE role (check your modem), and 
the presence of a male plug should in- 
dicate that the device is meant for use 
as a DTE. 

This rule is followed most of the 
time with modems and terminals, but 
you can’t depend on it when you are 
looking at the back of a computer. 


Signal Lines 

In most applications, there are only 
seven significant lines in the RS-232 
interface (aside from ground and sig- 
nal-ground lines). Here they are with 
their standard pin numbers in the DB- 
25 connector: 


¢ Pin 2 carries data from DTE to DCE. 

e Pin 3 carries data from DCE to DTE. 

¢ Pin 4, Request to Send (RTS), is as- 
serted by the DTE when it has data to 
transmit. 


— Signetics 2651 UART — 


Transmitted data —>» 
Received data <— 


bit 5 from Command —» 


CTS input 


(clamped high when n/c) 


_DTR/DSR input (status bit 7) : 
(clamped high when n/c) 


bit 1 from command —> 


DCD input (status bit 6) 
(clamped high when n/c) 


ax] 


e Pin 5, Clear to Send (CTS), is assert- 
_ed by the DCE when it is OK for the 
DTE to send. 

e Pin 6, Data Set Ready (DSR), is as- 
serted by the DCE when it is on-line 
and ready. 

¢e Pin 8, Data Carrier Detect (DCD), is 
asserted by the DCE (a modem) 
when a connection is established over 
the telephone line. 

e Pin 20, Data Terminal Ready 
(DTR), is asserted by the DTE when 
it is ready and on-line. 


Let’s repeat that list from the view- 
point of each device. As the DTE (the 
terminal, printer, and so on) sees the 
interface, 


e It transmits on pin 2. 

e It listens on pin 3. 

e It asserts pin 4, RTS, when it wants 
to send. 

¢ It awaits pin 5, CTS, before sending. 

e It asserts pin 20, DTR, as long as it is 
ready for operation. 


In addition, a true terminal may use 
pin 8, DCD, as a qualifier of its other 
operations. The Diablo 1650 KSR ter- 


Pin 3: 


Pin 2: 


Pin 5: 


Pin 4: 


<i 





DCE~«—RTS~<«— DTE 


minal, for example, lights a green 
“proceed” light when it detects DCD 
true. Many DTE devices will use pin 
20, DTR, as a sort of reverse-CTS, 
dropping it when some temporary con- 
dition puts a halt to their operations. A 
printer, for example, may drop DTR 
when it is out of paper. 

Now, from the standpoint of the 
DCE actor, we have these viewpoints: 


e It listens on pin 2. 

e It transmits on pin 3. 

e It asserts pin 5, CTS, when it can 
take data from the DTE. 

¢ It asserts pin 6, DSR, when it is on 
line and ready. 


A true modem will assert pin 8, 
DCD, when it detects the data tone on 
the phone line. A half-duplex modem 
will take the DTE’s signal on pin 4, 
RTS, as a sign that it should initiate a 
line turnaround in preparation for 
transmission and will not assert pin 5, 
CTS, until the turnaround is complete. 

A personal computer playing the 
DCE role has no phone line to listen to 
and will often use these lines in a sim- 
pler way. It might, for example, simply 


—— DB-25 Connector — 


DCE —» data —»> DTE 
DCE «— data «— DTE 


DCE —» CTS —»DTE > 


Pin 20: DCE~««— DTR «— DTE 
Pin 6: DCE —» DSR —» DTE 


Pin 8: DCE —» DCD —» DTE 


Few 


Figure 1 The DIP-socket interface between UART and DB-25. 
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short the DTE’s pin 4, RTS, back out on 
pin 5, CTS, supplying an instant 
“Clear to Send” without effort. 


The UART Connection 
The 2651 UART is used on the Compu- 
Pro System Support 1, Interfacer 3, 
and Interfacer 4 boards. In each case, 
its connection to the RS-232 link is the 
same. There is a single, 16-pin, DIP 
socket for each UART. Seven lines are 
brought from the UART to pins | —7 
of the socket, while seven lines are 
brought from the DB-25 connector to 
pins 16-10, the facing positions on 
the socket. The arrangement is shown 
by the diagram in Figure | (page 14). 
Let’s run down the UART’s signals 
as they appear on socket pins | —7: 


¢ Socket pin | carries data transmitted 
from the computer 
e Socket pin 2 receives data from the 
connected device 
Socket pin 3 carries bit 5 from the 
command last written to the UART, 
translated to RS-232 voltage levels 
Socket pin 4 is presented to the 
UART as Clear to Send signal 
Socket pin 5 is passed through to be- 
come bit 7 of the UART status byte 
Socket pin 6 carries bit 1 from the 
command last written to the UART, 
at RS-232 levels 
e Socket pin 7 is passed through to bit 
6 of the UART status byte 


Two of the socket pins (3 and 6) are 
driven directly by command bits that 
your software writes to the UART. 
These bits pass through an even num- 
ber of level inversions on their way to 
the socket; hence, the socket levels re- 
flect the bit values in the command. A 
one bit in the command will appear as 
a positive voltage at the socket; a zero 
bit will apppear as a negative voltage. 

Two of the pins (5 and 7) are passed 
through to the UART status byte (and 
have no other apparent effect on 
UART operation). Like the command 
bits, these status bits reflect the volt- 
ages applied—a positive voltage will 
produce a one bit, a negative voltage 
appears as a zero bit. 

The Clear to Send input on socket 
pin 4, the status input on pin 7, and (on 
the Interfacer 4 but not on the System 
Suppport |) the status input on pin 5 
are all pulled up to positive voltage lev- 
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Transmitted data —»- (1 }-— —__ 












Command bit 5 —» ee 5 —e DTE (CTS) 

| . i ; 
) Se ws oe 
command bt —» (| -> Pn» ore osH 
Status bit 6 (??) <— (}——{i0) —x Pin 8 —» DTE (??) - 


8 o | 


Status bit 7 (DTR) <«— (5) 


Figure 2 The effect of a DIP shunt is to make the UART play the 
DCE role. : 


Transmitted data —> |( 1 ) (i6)} <— Pin3—<—DCE (TD) 





Received data <— 


Comma e bit 5 —»> (3) 


| —> Pin2—»DCE(RD) 








| —» Pin 4 —» DCE (RTS) 


(12)} —e Pin 20» DCE (DTR) 


Status bit 7 oc | 
Sojummit (6) <— Pin 6 «— DCE (DSR) 
Status bit 6 (DCD) D . (10) | a Pin 8«— DCE (DCD) 
Figure 3 Cross-jumping the DI sick configures the VART asa 
DTE device. 
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els by a resistor. Thus, if these pins are 
not driven, they will appear positive. 


Configuring the Port 

You use this DIP socket to connect the 
UART to the DB-25 connector. In do- 
ing so, you configure that port as either 
a DCE or a DTE. This configuration is 
determined by the way that pins 1 —7 
are wired across to 16-10. Pins 8 and 
9 on the socket are supplied with con- 
stant voltages for your convenience; 
you can use them as a means of tying a 
DB-25 pin to a fixed level. In a simple 
connection, you can use the socket as a 
means of connecting RTS back to CTS 
or for doing other tricky things. Here, 
however, we will examine the full con- 
figurations for the DCE and DTE roles. 


The DCE Configuration 

Examine Figure 2 (page 15). It shows 
the effect of installing a DIP shunt in 
the socket. Notice that the conductor 
between pins 8 and 9 must be broken; if 
you use a new, unmodified DIP shunt, 
you will be placing a direct short from 
+12 volts to —12 volts. Be careful 
about this; your CompuPro board may 


DCE config. 
DTE config. 


have been delivered with unmodified 
DIP shunts in these sockets. 

The result of shunting each pin 1 —7 
to its facing pin 16-10, as shown in 
Figure 2, is to make this port a DCE. 
That is, the UART will be transmitting 
on pin 3, receiving on pin 2. You have 
direct control of RS-232 pins 5, CTS, 
and 6, DSR, through the UART com- 
mand byte. Pin 8, DCD, will be held to a 
positive level by the pull-up resistor. 
The DTE’s signal on pin 20, RTS, will 
be available in the UART status byte 
for your device driver to test. 

There are a couple of anomalies in 
the configuration of Figure 2. The 
DTE’s signal on pin 4, RTS, will be 
passed to the UART as “‘clear to send.” 
It seems to cause no problem. And bit 
6 of the status byte will always be one, 
since socket pin 7 is driven by neither 
device and hence will be pulled high. 
Nevertheless, this configuration works 
quite well as a DCE actor. 


The DTE Configuration 

Now turn to Figure 3 (page 15). This is 
how the DIP socket must be wired if 
the port is to be configured as a DTE. 


You must solder up this wiring using a 
DIP header. Furthermore, when con- 
figuring a port as a DTE you should 
bring it out on the back of the comput- 
er with a male plug. If you don’t, you'll 
need an RS-232 “‘sexchanger”’ cable to 
connect it to the female socket on a 
standard DCE device. Alas, all the 
CompuPro-supplied interface cables 
terminate in female sockets at all posi- 
tions, so you'll have to make up your 
own ribbon cable. 

Be that as it may, let’s consider the 
effect of the wiring shown in Figure 3 
(page 15). The UART transmits on 
DB-25 pin 2 and receives on pin 3, asa 
DTE device ought to do. Your software 
can control the DTE signals of pin 4, 
RTS, and pin 20, DTR, through bits of 
the UART command byte. The at- 
tached DCE device’s signals on pin 6 
(DSR) and pin 8 (DCD) will be avail- 
able in the UART status byte. The 
DCE’s pin 5 signal, CTS, will be deliv- 
ered to the UART as “Clear to Send.” 


UART Command and Status 
Figure 4 (page 16) summarizes the 
status byte presented by the 2651 


Tx—Shift 
Reg. 
Empty 
Change in 
DSR/DCD 


Framing 
Error (or 
Break if 
Data=O00h) 


Input 
Data 
Available 


Overrun 
Error 


Figure 4 The UART status register. Its meaning depends in part on the configuration of the DIP socket. a 








DCE config. 
DTE config. 


D5 D4 D3 D2 D1 DO 















Enable 
Receiver 


Enable 
Transmitter 





in Status 


Figure 5 The UART command register. Its meanings depend in part on the configuration of the DIP socket. 
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UART under these configurations. Six 
of the bits reflect the UART’s opera- 
tions. Bit D7 reflects the voltage state 
of socket pin 5; that is, either pin 20, 
DTR, or pin 6, DSR, depending on the 
socket configuration. Either way, it 
means “other device ready.” 

Status bit D6 reflects a modem’s pin 
8 signal, DCD, when the socket is con- 
figured as a DTE. If the socket is con- 
figured as a DCE, this bit will always 
be high. Of course, you could modify 
the wiring of Figure 2 (page 15) to 
bring another signal to this bit. 

Figure 5 (page 17) summarizes the 
use of the UART command byte. A 
command can be written to the UART 
at any time after it has been initialized; 
it isnt necessary to write the two mode 
bytes before every command. Four of 
the command bits control UART oper- 
ations. Two of them are simply passed 
through to the configuration socket 
and from there to the DB-25 connec- 
tor, however. 

Command bit D5 controls the level 
at socket pin 3. When the port is con- 
figured as a DCE, this bit will be seen 
by the DTE as a CTS signal. In most 
applications it should be set to 1, be- 
cause most DTE devices want a positive 
CTS (but some may not). When set up 
as a DTE, command bit D5 controls 
RS-232 pin 4, RTS. Most DCEs expect 
this signal to be positive and will turn it 
around as pin 5, CTS. 

Command bit D1 controls the level 
at socket pin 6 and, hence, when the 
port is a DCE, it controls the level of 
pin 6, DSR. Most DTE devices expect 
this signal to be high when their mo- 
dems are on-line. When the port is 
DTE, command bit D1 controls the 
RS-232 signal pin 20, DTR. Most mo- 
demsexpect this line to be positive 
when their terminals are on-line. 

Thus, in most applications, both 
command bits should be written as 1 
bits. This may not be true in all cases, 
however, because the world of RS-232 
devices contains more exceptions than 
it does normal cases. At least, once you 
understand the requirements of the at- 
tached device, you can satisfy them 
through some appropriate wiring of 
the configuration socket and some set- 
ting of the command bits. DD) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 
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BRIEF — The Programmer's Editor 
IS. 


Intuitive, Powerful 
Reconfigurable. 


A New Standard: BRIEF provides tremendous 
power while keeping the Editor “out of your way”. 
Power and a natural flow are combined. 


Intuitive — Your thoughts flow smoothly. Your mind can 
focus on programming because editing is “out of the way”. 15 min- 
utes is all it takes to be productive with BRIEF. “Modeless operation” 
with this fast, memory-mapped Editor gives you immediate access 
to each capability as it is needed. 


Powerful —— You do what you want without mundane, 
repetitive nuisances and with little effort. BRIEF has every feature 
you expect from a decent full-screen Editor, plus many important 
additional features (like full UNDO, multiple files of unlimited size, 
multiple windows, full error-recovery, language-sensitive features) 
AND a complete, powerful, readable, compiled MACRO 
language. 


Reconfigurable —— BRIEF is distributed with an “ideal” 
configuration, and many use it without modification. But you may 
want to make changes. Reconfigure the whole keyboard, or just 
the Function keys. Change the way commands work . . . or startup 
defaults. You can change BRIEF — to fit your style. 


Availability: PCDOS-compatible systems with at least 192K and 1 
floppy drive are required. An unprotected hard-disk compatible copy is 
sent when you register BRIEF. Your initial copy of BRIEF is copy-protected. 
BRIEF is currently stable and well tested. Early purchasers have 3 weeks 
to use BRIEF and return it for a full refund; they will also get a free update 
when the “official version” scheduled for 10/1 is available. The price of 
BRIEF is $195. 


CONTEST: $1,000 and substantial recognition will be 


given for the “Outstanding, Practical BRIEF Macro”. Rewards will 
also be given for other winning submissions made by 11/31/84. An 
early version of BRIEF is available primarily for contest participation. 
Call for details. 


BRIEF is a trademark of Underware. 
Solution Systems is a trademark of Solution Systems. 


SOLUTION SYSTEMS™ 


335-D Washington Street, Norwell, MA 02061 


617-699-1571 


Circle no. 83 on reader service card. 


17 





by Robert Blum 


Of all the modules needed to form a 
complete banked version of CP/M 
Plus, the MOVE module is the smallest 
in size but perhaps the most difficult to 
debug. The three subroutines residing 
in the MOVE module form the nucleus 
of logic to use banked memory. The 
close relationship that exists between 
these routines and the hardware can be 
the cause of many mysterious system 
crashes, especially when you bring up 
CP/M Plus for the first time. 


CP/M Plus: 

Interbank Memory Moves 
Without DMA 

I was at first disappointed after read- 
ing the CP/M Plus documentation be- 
cause it insists that DMA hardware be 
used for interbank data movements. 
My machine has a DMA disk control- 
ler, but no way of asking it to perform 
a memory-to-memory move operation. 
After thoroughly studying the sample 
BIOS listings included in the system 
manual, however, I couldn’t think of 
any reason to doubt that I would be 
able to find a programmable solution 
to this problem. 

The listing on page 20 shows the 
MOVE module that I am currently us- 
ing. It is patterned after Digital Re- 
search International’s (DRI) suggested 
routine with only a few small modifica- 
tions. So far it has proven very reliable 
and with only two changes should work 
equally as well in most any Z80 hard- 
ware configuration with or without 
special DMA features. 

The first routine, XMOVE, is provid- 
ed for banked systems that support 
memory-to-memory transfers over the 
entire extended address range. Sys- 
tems with this feature can have their 
data buffers located in an alternate 
bank of memory instead of in common 
memory. By relocating the data buf- 
fers away from common memory (ap- 
plication program) you easily can 
achieve a TPA of 60K or larger. 
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CP/M EXCHANGE 


A call to XMOVE affects only the 
following MOVE call. Each time you 
make an interbank transfer, you must 
first call XMOVE to establish the data 
source and destination bank numbers 
before calling MOVE. 

The second routine, MOVE, per- 
forms the memory-to-memory block 
move operation. My version is slightly 
enhanced to allow any size interbank 
move. The sample routine only permit- 
ted 128 bytes to be transferred at a 
time, which for me would cause exces- 
sive overhead. My hardware will not 
support direct interbank memory 
moves so I used a combination of Z80 
block move instructions to perform the 
move in segments of 128 bytes each. 
This required that each memory seg- 
ment be stored first in a common mem- 
ory buffer and then moved to the cor- 
rect destination address after the 
appropriate memory bank had been 
switched into context. This entire pro- 
cess is not nearly as complicated as it 
may sound, and outside of a need for 
special hardware, it is the most efficient 
way to implement interbank moves. 

The last routine, BANK, is as danger- 
ous as any in CP/M Plus. At entry to 
this routine the A register contains the 
number of the CP/M Plus memory 
bank (0 through 15) to be switched into 
context. Because I use the older style 
bank select method for memory bank 
switching, I first used a translation ta- 
ble to convert the CP/M bank number 
to one understood by my hardware. 

As I said, the MOVE module is not 
large in size but does perform some of 
the most important functions in a 
banked version of CP/M Plus. 


ZS80ASM: An Assembler Language 
Development System 

Continuing with July’s discussion on 
Z80ASM from SLR Systems (an as- 
sembler language development sys- 
tem), the package I received contained 
a single 8-inch disk and a standard- 


size, three-ring documentation binder. 
There were six files on the disk: four 
executable programs, a sample assem- 
bler language source file for testing the 
package after installation, and a 
‘“READ.ME” file containing recent ad- 
ditions or updates to the documenta- 
tion manual. I refer to Z80ASM as a 
package because a linkage editor and a 
librarian are also included. For the 
purpose of this discussion, I will re- 
strict my comments to the assembler 
and the configuration utility program. 

To prepare Z80ASM for use, you 
must run the system configuration utili- 
ty program. During this setup proce- 
dure, you must answer a number of 
questions about the version of CP/M in 
use and how the assembler’s many de- 
fault parameters are to be set. Some of 
the questions are detailed enough that it 
would be wise to first study the configu- 
ration section of the manual before you 
attempt to run the configuration utility. 

Many of the default parameters per- 
tain to the format of the printed hard- 
copy listing. In addition to specifying 
how many columns across and lines 
down are to be printed on each page, 
you can select options to alter the page 
appearance. One option, for example, 
allows the line number assigned by the 
assembler to be printed on the left 
margin or between the listing of the 
generated object code and the actual 
source statement. 

Another option that is particularly 
important to me is the inclusion of the 
date and time into the page headings. 
To gather the date and time from the 
clock, Z80ASM senses the operating 
system version in use and issues the ap- 
propriate BIOS function calls. If the 
CP/M system in use doesn’t automati- 
cally support built-in clock functions, 
you can specify the memory address of 
a subroutine that can be called to pass 
along the clock data. 

Z80ASM will also initialize the 
printer with up to eight characters of 
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user-specified control information be- 
fore printing starts and again at the 
listings termination—certainly a very 
important feature for the narrow car- 
riage printer owner. 

The default filename extension for 
all input, output, and work files can also 
be configured to meet your standards. 
You can eliminate the monotonous task 
of keying the parameters that control 
the assembly options by specifying 
them once at configuration time (and 
then give them no further thought un- 
less there is some special need). Of 
course, if you need a special option, it is 
not necessary to rerun the configuration 
utility. Practically every permanent op- 
tion can be overridden if you specify an 
execution time parameter. 

Running Z80ASM for the first time 
is where the fun begins. As I men- 
tioned in the first installment of this 
review, I was skeptical when told I 
could expect a sixfold speed improve- 
ment. My first assembly, however, ver- 
accurate and that my fears were un- 
founded. I’m told by the author that 
this incredible assembly speed is due 
largely to making every use of the 
Z-80’s instruction set and to buffering 
all disk data into 1K segments. The 
data rates are even further enhanced 
when you can use the multi-sector 
function of CP/M Plus. 

A full complement of operator com- 
mands are available to control the exe- 
cution of Z80ASM. If you have ever 
sat blindly staring at your CRT ques- 
tioning why a program is running so 
long, or worse yet, whether it is run- 
ning at all, you will appreciate these 
features. If at any time it is necessary 
to prematurely end an assembly, sim- 
ply typing a CTL-C will abort the job 
without your needing to resort to more 
drastic measures such as hitting the re- 
set button. Further, assembly opera- 
tion may be temporarily suspended if 
you key CTL-S and later resume by 
typing CTL-Q. 

Runtime control of the console and 
printer devices is also provided. The 
console driver may be enabled and dis- 
abled (toggled) with a CTL-Z, and the 
list device driver may be toggled with a 
CTL-P. Note that both of these com- 
mands may be used whether or not 
their drivers were enabled in the com- 
mand line. These useful commands let 
you view just a portion of the assembly 
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without requiring you to insert control 
statements into the program source 
code. And in the unlikely event that 
you may be questioning what Z80ASM 
is doing at any moment, typing a ques- 
tion mark will display the current file- 
name, line number, and source line 
that is being assembled. 

Errors that creep into your assembly 
are described by over 30 full text mes- 
sages. Not only are they printed in the 
listing, but they are also displayed on 
the CRT as the assembly runs. 

To ensure that no error messages 
slip by, you will be asked during the 
configuration process for the number 
of lines to be displayed on the CRT be- 
fore the assembler stops and waits for 
you to command it to continue. A max- 
imum error limit can also be set that, 
when reached, automatically aborts 
the assembly. In any event, if the as- 
sembly ends with errors present, the 
CP/M Plus error code in the system 
control block is set to FFOO. 

A great deal of an assembler’s useful- 
ness comes from the flexibility of the 
pseudo-ops it recognizes as well as a 
well-integrated macro language. 
Again, Z80ASM goes one step beyond 
what is expected of a good assembler by 
providing several unique pseudo-ops 
that allow operator entry of values and 
the display of text on the CRT at run- 
time. Of particular interest to me were 
the string comparison pseudo-ops (all 
of this in addition to those carried for- 
ward from M80 and DRI’s RMAC 
assembler). 

In summary, Z80ASM is an extraor- 
dinary product that must be consid- 
ered by anybody who does assembly 
language programming. Not only does 
the assembler work as advertised, it is 
also well supported. 

If you want to know more about 
Z80ASM or the other products offered 
by SLR Systems, you can contact the 
company directly at 200 Homewood 
Drive, Butler, PA. 16001; in Pennsyl- 
vania, call (412) 282-0864, other 
states (800) 833-3061. 


DD) 
(Listing begins on page 20) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 191. 





PROGRAMMER’S 
DEVELOPMENT TOOLS 
AND ACCESSORIES 


IBM Personal Computer 
Language and Utility Specialists 


OPERATING SYSTEMS: 


Concurrent DOS DRI NEW $350 CALL 
Concurrent CP/M-86 DRI! Multitasking 350 239 
Unx-ll IDS Requires 10 MB harddisk 895 CALL 


Call for CP/M-86 products 


*** X-Shell *** 
by Standard DataCom 


Bring Unix-like Capabilities 
to your PC 
Make more effective use of your 
valuable programming time. 


Manufacturer List $225 Our Price $205 


WY Lele. vel os 


Lattice C Compiler 500 295 
ADA-86 + Tools Janus 700 499 
C-86 Computer Innovations 395 319 
DeSmet C Compiler with Debugger 159 145 
Professional BASIC Morgan Computing 345 295 
Assembler w/Z-80 Translater 2500 AD 100 89 


Call for Microsoft and Digital Research Products 


‘*C’’ Language Starter Kit 
Package Consists of: 


DeSmet C Compiler w/Debugger $159 
Windows For C Creative Solutions 150 
AKA ALIAS Soft Shell Technology 60 57 
C Programming Language 

book by K&R 20. 20 


Retail $394, Priced Separately $341 
Our Special Package Price $329! 


**** STSC APL*Plus/PC :**** 
We can support you! 
Complete demonstration package with 
diskette for $5, refundable with purchase. 
Total APL system including character 
generator chip. 


Manufacturer List $595 Our Price $540 


UTILITIES: 


CodeSmith-86 Debugger Visual Age $145 
Profiler DWB & Associates 175 
Btrieve SoftCraft 245 
Windows for C by Creative Solutions 150 
Translator APC PC BASIC to MEGABASIC 195 
OPT-TECH Sort High Performance Utility 99 
C Functions Lib. by Greenleaf Software 175 
Float-87 8087 Software Support +20 
Panel Screen Design/Editing 350 
C-Food Smorgasbord 150 
Halo Color Graphics for Lattice, Cl-86 200 
Plink-86 Overlay Linkage Editor 395 
MetaWINDOW L/SA-Like Windows for PC 150 


64K MEMORY: 


64-K Memory Chip Kits w/instructions 100 





a SD visame 
case NO EXTRA CHARGE 





Account is charged when order is shipped 
Prices are subject to change without notice 


CALL FOR LOW PRICES 


1-800-336-1166 
ie Lestat Connection 
+d ere crOnnOne 


‘‘Programmers Serving Programmers 
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CP/M Exchange Listing (Text begins on page 18) 


=e =e SO 


false 
true 
banked 


td 
e 
a 


=e “=e SO 


=e ™ Oe Se 


me =e EO 


move stat: 


src des bank 
src_bank: 
des_ bank: 


des _ add: 
src_ add: 
mov_cnt: 


hold hl: 

hold de: 

hold bc: 

old stk save: 
local stack 


tc_bank: 


conv_bank tbl: 


=e =e SO 


bank_port 
int_bnk act 
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- 286 

title MOVE - bank select & move module for CP/M Plus 
subttl save areas and equates 

-comment | | 


page 


Global definitions for CP/M Plus 


equ g 
equ not false 
equ true 


maclib cpm3glbl.lib 


cseg 

subroutines for others modules use 
public ?move,?xmove, ?bank 

extrn ?pmsg , ?pdec 


external areas and subroutines that we may need to use 


extrn @cbnk , @dskbf 
extrn ?bnksl 


local save areas 


defb 4) ; flag to show next move is interbank 
equ S 

defb i) s source bank number 

defb g » destination bank number 

defs 2 * destination address for interbank move 
defs 2 ; source address for interbank move 
defs 2 ; byte count for interbank move 

defw 4) ; Saveareas for callers registers 
defw 4) 

defw g 

defs 2 ; place to save users stack 

defs 16 ; Place for our local stack 

equ S 

defb 4) 


defb G1h,802h,04hn,98h,810n,920n,849h,08Gh . 


* conversion table used to translate 


tf 
> CP/M's bank to ours 
local equates 


equ 40h 
equ 4) 


=e Se 


bank selection port address 
flag for interbank move active 


(Continued on page 22) 
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THE PROGRAMMERS SHOP} 


helps compare, evaluate, find products. Straight answers for serious programmers. 
qo PUBLIC DOMAIN Research - Free 


¢ Programmer's Referral List + Dealer's Inquire 
+ Compare Products - Newsletter 6 months paid research gives you leverage, learning. We found, com- Samet eecsor pote pene plotters 
+ Help tind a Publisher + Rush Order bined, added to the best. All run, have source in C or ASM. Order $150 + Particularly strong for scientific plots. . 
+ Evaluation Literature free + Over300products — get one free: Database, Editors, Modems, MSDOS RAMdisks & utils, Optional use of 8087.Up to 4096 x 4096 
* BULLETIN BOARD - 7 PM to 7 AM 617-826-4086 Games inC. Res. Desmet, (86. $195 
T QUR 


LIST OUR oon . Ul 
Tome \reyeyvel= = PRICE PRICE MUNRO te er LANGUAGE LIBRARIES PASCAL ENVIRONMENT phate PRICE 


MSDOS: (86-8087, reliable $395 call Screen with source 8080/86 NA 75 Cto dBASE interface 8080/85 $150 $140 PASCAL MT + 86 $279 
Desmet with debugger 9 145 FNAL WORD -formanuals 8080/86 300 215 (Tools 1 - String, Screen PCDOS NA 115 MS PASCAL 86 SD 215 
Lattice 2.1 - improved call MINCE-likeEMACS = CPM,PCDOS 175 149 C Tools 2-0S Interface PASCAL 64 - nearly full COM 64 
Microsoft C 2.x 349 PMATE - powerful CPM 195 175 GRAPHICS: GSX - 80 
Williams - NEW, debugger Call 8086 225 195 — HALO-fast, full 


CPM80: Aztec by Manx 199 call VEDIT - full, liked CPM, PCDOS 150 119 Greenleaf for C - full 
B0SC- solid value 125 8086 200 159 ISAM: C Index + -no royalties OTHER PRODUCTS 
soft C - now soli 255 BTRIEVE - many languages AKA ALIAS -i 
APPII: Aztec - full, decent call [OS TNaee PHACT-withC GERI BH. iS ee 
MACINTOSH: First - by 7/15... 385 COHERENT-forC” users  PClike $500 475 PASCAL TOOLS - Blaise CODESMITH-86-debug  PCDOS 149 
Compare, evaluate, considerotherCs  VENIX-‘trueV7"wFIN —-PClike. 800 775 Sarr ks ‘lige Disk Mechanic. rebuild MSDOS 70 
XENIX - “true $3” - rich -86 - -full 1000KRAM —- PCDOS 175 
EEXNSTeH environment et tet ae ener PCDOS NA MBP Cobol-86 - fast 3086 750 
BASCOM-86-MicroSoft 8086 395 279 ASk about run-times, applications, DOS compatibil- Ask about many others for FTN, BASIC, PASCAL, C-ISAM, MicroPROLOG PCDOS NA 
BASIC Dev't System PCDOS 79 72. tty, other alternatives UNIX is a trademark of Bell Labs Screen, Stat, Graphics. Microshell improve CPM 8080 150 
BASICA Compiler - Microsoft MASM-86 MSDOS 100 
BetterBASIC - 640K PCDOS — 325 MS Fortran - improvements MSDOS 350 
CB-86 - DRI CPM86 600 439 PL/1-86 8086 750 
MACNTOSHCOMPIER Call for a catalog, literat d Poibarn- thorough MSDOS 
H ILER olylibrarian - thoroug 
with BASICA syntax MPC NA 325 g, ure, and answers PROFILER - flexible MSDOS NA 


a 800-421-8006 ECM nes oc MA 

- as READ PCDOSonanIBMPC CPMG6 NA 

C HELPER has source in C for MSDOS, CPM80 TRACE86 debugger ASM == MSDOS 125 

is ese § THE PROGRAMMER’S SHOP™ va rte aa 
nierpreter for MSDOS includes 128-DRockland Street, Hanover, MA 02339. 


tutorials, reference and good examples. L 
sito: Bsc sh Ll er Visa Mass: 800-442-8070 or 617-826-7531 MasterCard Ask about COD and POs. 


Language or AI. $125. All formats available. 
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PROLOG-86" C HELPER" 


Learn Fast, Experiment UNIX"-like Utilities for 
1 or 2 pages of PROLOG would require 10 or 15 pages C Programming with source 


ne Ge 
Be familiar in one evening. In a few days enhance 
artificial intelligence programs included like: 
¢ an Expert System 
¢ Natural Language (generates dBASE display) 


Intro Price: $125 for PCDOS, CPM-86. 
Full Refund if not satisfied. 





Save time when working with your C programs. Full 
source lets you make them work your way, helps you 
learn. 


Utilities included: compare files (DIFF), cross reference 
your variables (CCREF), examine the flow of functions as 
they call each other (FCHART), format and indent pro- 
grams (pretty printer), search for patterns (GREP). Others 
check program syntax, print programs your way and 
more. 


CONTEST: “Artificial 


Intelligence Concepts” 


$1,000 Prize, Recognition for applications in PROLOG- 
86™ that teach, are clear, illustrate. Call for details. 
A Deadline 11/31/84 


| UNIX is atrademark of Bell Labs. 


$135 for PCDOS, MSDOS, CPM-86 or CPM80. 


Call with questions or for “Programming with C Helper”. 


SOLUTION SYSTEMS™ 


45-D Accord Park, Norwell, MA 02061 


617-871-5435 
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CP/M Exchange Listing (Listing Continued, text begins on page 18) 


?xmove: 


?move: 


=e @O@ ™Oe MO MO MO WO Be WS 


=e =e Se SO MO 


subttl 
page 


set interbank 
and save both 


move flag active for next 


at entry: 


oO 


= destination bank 
= source bank 


Q 
| 


?XMOVE - interbank mBve setup subroutine 


call to ?move subroutine 


the destination and source bank numbers 


Save source and destination 
get status byte 

set interbank move active 
save status byte 

return to caller 


test flag for interbank move 
and go to appropriate routine 
* 


we are passed source in de and dest in h: 
use z8@ block move instruction 
need next addresses in same regs 


ld (src des bank) ,bc : 
ld a, (move stat) : 
set int_bnk act,a : 
ld (move stat),a . 
ret : 
subttl ?MOVE - memory to memory move subroutine 
page 

ld a, (move stat) * 
bit int_bnk act,a : 
jx nz,int_bnk mov : 
ex de ,hl : 
ldir : 
ex de ,hl . 
ret ; 


this routine is improved over the 


return to caller 


DR example 


interbank moves of greater than 128 bytes can be made with one exception, 
a move cannot span a bank boundary 


int_bnk mov: 


int_bnk_ mov a: 
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res int bnk act,a ; 
ld (move stat) ,a : 
ld (old stk save) ,sp . 
ld sp,local stack ; 
ld (des _ add) ,hl . 
1d (src_ add) ,de ; 
ld (mov_cnt) ,be . 
ld hl, (mov_cnt) . 
ld a,l ? 
Or h “ 
jr z,int_bnk mov ret : 
ld Eee oe he. ; 
xOr a : 
sbc hl,be ; 
jr c,int bnk mov last : 
ld (mov_cnt),hl — : 
ld hl, (sre add) : 
ld de, @dskbf : 
ld bc, 128 ° 
ld a, (src_bank) ; 
call ?bank : 
ldir . 
1d (src add) ,hl ; 


set off interbank move flag 
save status byte 


save callers stack 
and load it with a local stack 


Save destination address 
Save source address 
save length of move 


restore move length 
check for zero length move 
* 


* 


segment length 

clear carry flag 

decrement length 

last move this time 

Save remaining length 

restore source address 

point at intermediate save area 
segment length 

get source bank number 

find physical bank and swap it 
move a segment 

Save new source address 
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ld hl ,@dskbf 


ld de, (des _ add) 

ld be ,128 

ld a, (des_bank) 

call ?bank 

ldir 

ld (des add) ,de 

Jz int _bnk_ mov a 


ld hl, (src_add) 
ld de , @dskbf 

ld bc, (mov_cnt) 
1d a, (src_bank) 
call ?bank 

idirx 

ld (src_ add) ,hl 
ld hl ,@dskbf 

ld de, (des _ add) 
ld be, (mov_cnt) 
ld a,(des_ bank) 
call ?bank : 
Laty 

ld (des add) ,de 


int _bnk mov_ret: 


ld a, (@cbnk) 
call ?bnksl 
ld sp, (old stk_ save) 
ret J 
subttl 
page 

?bank: 
ld (hold hl) ,hl 
ld (hold de) ,de 
ld (hold bc) ,be 
ld c,a 
ld b,@ 
ld hl,conv_bank_ tbl 
add hl,bc 
ld a, (hl) 
out (bank port) ,a 
ld asc 
ld hl, (hold hl) 
1d de, (hold _ de) 
ld be, (hold _ bc) 
ret 
end 
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=e ~e SO ee TSH MO MO WE 


™e ™e Me SMO MO TO BO Be BO Me WE Me Me WE 


=e =e SO NO 


me we MO MO MO BS MO WE BW BH Me We We 


point at segment as source 
restore real destination address 
segment length 

get segment bank number 

find physical bank and swap it 
move a segment 

Save new destination address 
loop until complete 


restore source address 

point at intermediate save area 
remaining length to move 

get source bank number 

find physical bank and swap it 
move a segment 

Save new source address 

point at segment as source 
restore real destination address 
remaining length to move 

get destination bank number 
find physical bank and swap it 
move a segment 

restore ending source address 


load current bank number 

find physical bank and swap it 
restore callers stack pointer 
back to caller 


?BANK -— select bank subroutine 


Save callers registers 
* 


* 
desired bank number to bc 
* 


pointer to bank conversion table 
create memory pointer to desired byte 
load bank number 

Swap in desired bank 

restore bank number 


restore user registers 
* 


* 


End Listing 


23 


File Maintenance in Forth 





by Ray Cadmus 
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ceramics shop owners to develop a 

computer system to help them run 
their businesses more efficiently. Since 
my wife, a shop owner herself, was the 
spokeswoman for the group, how could 
I say no? Their wants were few. Keep 
it cheap, simple and comprehensive— 
in that order! To keep it cheap I looked 
to the Commodore 64 computer where 
a complete system with disk and print- 
er was available for less than $1000 
(not the best choice, as it turned out). 
The need for simplicity dictated that 
everything must be self-prompting or 
menu-driven. As for comprehensive— 
the want list grew.... 

The group needed the computer to 
function as an electronic cash register, 
capturing both financial and inventory 
control information. Automatic price, 
product description and customer in- 
formation lookup would be “nice.” In 
general, they wanted inventory con- 
trol, mailing list maintainance, class 
scheduling and full accounting func- 
tions including vendor and customer 
histories. With so much data to handle 


g ast year I was asked by a group of 


files. 


Why Forth? 

When I set out to do a simple business 
application on a Commodore 64, I 
quickly discovered that BASIC on the 
C64 is just too limited to really do jus- 
tice to the power and capabilities of the 
machine. Forth was readily available; 
it is fast enough for dynamic graphics 
and sound routines (although neither 
is demonstrated in this project); and it 
is extensible, so it can grow more natu- 
rally to handle the features of whatev- 
er computer uses it—besides, I had 
been looking for an excuse to learn 
Forth anyway. 


File Maintenance and Forth 

One of the more common functions of 
a small computer is the storing and re- 
trieving of data. Whether you call this 
data management or file maintenance, 
it normally means writing a series of 
programs to build and maintain indi- 
vidual data files. The Forth screens in 
the listing on (page 26) present a series 
of routines or “words” that allow the 


Forth’s extensibility makes it ideal for providing a 
core on which to build more complex structures. 
This data-management core begs to be extended, 
and the author shows some data-management tools 
that can be built from it. 





and so many files to be built and main- 
tained, the small computer had to fill a 
tall order. This article presents my re- 
sponse to the challenge a simplified 
means; written in Forth, that builds 
and performs much of the routine 
maintainance on many types of data 





Ray Cadmus, 600 W. Lee, Moberly, 
MO 65270. 


very simple description of a data file 
and its associated screen format. The 
routines provide capabilities for add- 
ing new records and for changing ex- 
isting ones. You may change or retain 
data within a record on a field-by-field 
basis. Once you have established the 
file maintenance routines as a part of 
the Forth system, file handling is a 
matter merely of your defining a table 
word, setting a starting BLOCK and re- 
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cord length, then stepping into the 
maintenance MENU for the rest of the 
operations. 

Before we look at the details of the 
program, it may be useful for me to 
describe a few of the terms I'll be using 
and to examine how Forth’s handling 
of data differs slightly from most con- 
ventional programming systems. 

For most people, the smallest practi- 
cal unit of data is the character or 
“byte” of data. We combine these 
characters into logical, meaningful 
groups to make up a data element or 
“field” of data. This field may be nu- 
meric, as in a quantity or price field, or 
it may be alphabetic as in a description 
field. We can combine related fields 
into a “‘record.’’ For example—an 
ITEM RECORD may contain an ITEM 
NUMBER field, a DESCRIPTION 
field, a PRICE field and a QUANTITY- 
ON-HAND field. This grouping makes 
up a “logical record.” A “file” is a col- 
lection of logical records stored on a 
device outside the computer—usually 
a disk drive. 

Both records and fields may be ei- 
ther variable-length or fixed length. 
Variable length units are usually sepa- 
rated by a common delimiter of some 
sort such as a comma, but fixed-length 
units are not; for example, our item 
record: 

123,BIG BOX,19.95,15 (variable) 
00123BIG BOX 019950015 (fixed) 
A variable-length item takes up less 
room but a fixed-length record is more 
predictable. For instance, because we 
know how long each record is, we can 
calculate where any record will be by 
multiplying the number of preceding 
records by the record length. This is 
the basis for random access files; that 
is, we can go directly to the desired re- 
cord without searching through each 
record from the beginning of a file. 

How is Forth different? Forth orga- 
nizes and stores its data as 1024 char- 
acter ‘‘physical records” known as 
BLOCKS or SCREENS, stored by block 
number. We may store our “‘logical re- 
cords” into a Forth BLOCK. 

The Forth package used originally in 
the development of this package was 
the Commodore 64 Forth by Perfor- 
mance Micro Products (PMP). I have 
since converted the file management 
system to run under Laboratory Micro- 
systems (LM) Z80 Forth. The ease of 
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this conversion is a testimony to the 
portability of Forth. PMP Forth and 
LM Forth both are based on FIG Forth, 
with a few extensions and a few differ- 
ences. The major difference (and the 
reason that I used the LM version for 
the enclosed examples) is that PMP 
Forth uses a 24 X 40 screen format 
rather than the standard 16 X 64 for- 
mat of LM Forth. I encountered several 
minor differences: NUMBER in LM 
Forth requires a trailing blank to termi- 
nate while PMP Forth accepts either a 
blank or a NUL; and PMP Forth uses 
?DUP where LM Forth uses —DUP. 


Screen Descriptions 

Screen 105 describes the terminal con- 
trol as used by my Radio Shack TRS- 
80 Model II, and screen 106 defines a 
simple, relative record file access sys- 
tem. The word RECORD takes the re- 
cord number off the stack, reads the 
data block if necessary, then sets up a 
pointer to the record on the block. You 
can change RECORD to use the native 
operating system’s file system instead 
of the Forth block structure if you de- 
sire. At the very minimum, you should 
change it to check for a maximum 
block value so that your file doesn’t 
overwrite something it shouldn’t. You 
may use record 0 to keep miscella- 
neous data about the file. Currently, 
the first two bytes in record 0 contain 
the number of records in the file. You 
should set this count to 0 for a new file. 
For example: 

(0 BBLOCK @ block !) 

Screens 107 and 108 contain some 
of the words used by the data entry 
portion of the system. ?DIGIT returns 
a true or false flag showing when the 
top stack entry is an ASCII digit. 
?NUMBER determines when the text 
string pointed to by the top stack entry 
is convertible to a number. Using these 
words ensures that the program won't 
“blow up’ from unusable garbage. 
ASK prompts for a yes/no and returns 
a true flag when the response is Y. 
LEN returns the length of a string. 
WAIT is a pause word used to keep 
data on the screen until you have 
viewed it. INPUT accepts a number 
from the terminal, converts it to inter- 
nal form, and leaves it on the stack as a 
double number. 

Screens 109 — 118 are the file main- 
tenance system (FMS) words, and 


screens 119 and 120 are a couple of 
sample applications using the FMS. 
The key to the FMS is the word 
PBUILD, which builds a page descrip- 
tion table. It is called with the top of 
stack containing the number of fields 
to be displayed on the data entry 
screen. Following the word PBUILD 
are the field description entries them- 
selves (see screens 119 and 120 for 
examples). 

The set of entries for each line of the 
PBUILD table are: 

(1) The line on the screen to display 
the prompt 
(2) The screen column for the prompt 
display 
(3) The line on the screen to display 
entered data 
(4) The screen column for data entry 
(5) The length of data to enter 
(6) The data type code where: 
0 — no data entry, display only 
1 — numeric single byte 
2 — numeric single word 
3 — numeric single word; treat as 
a dollar amount, display as 
nnnn.nn (2 decimals) 
— numeric double word 
5 — numeric double word; treat as 
a dollar amount 
9 — alphanumeric text 
(7) The location in the record of the 
data (base 0) 7 
(8) The prompt text delimited by trail- 
ing quotes 

That’s it! This simple table defini- 
tion sets up everything for data entry, 
display, and update. Note that the type 
code determines how much room a nu- 
meric field takes up in the data record. 

Screen 111 contains the FFIND rou- 
tine that finds the location of the field 
description data in the table. FDIS- 
PLAY displays the prompt for a given 
field, and PDISPLAY displays the en- 
tire screen of prompts. 

Screen 112 describes FDATA and 
?FDATA, which determine where the 
data is in the record and what type it 1s. 
2?FDATA is used only by FDATA. 

FGET in screen 113 uses FTEXT and 
FNUM to accept input data and place it 
into the proper record location. FPUT 
on screen 114 takes a field’s data from 
the record and places it on the screen. 
PPUT and PGET on screen 115 force 
the display and entry, respectively, of a 
whole screen and record full of data. 

The words in screens 109 —115, 
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which form the guts of file mainte- 
nance, could also be used as screen and 
record managers in other programs. 
The rest of the words on screens 
116-118 use the file and screen words 
to develop a simple FMS. You could 
easily enhance these routines to add re- 
cord indexing and report generation 
for a full-fledged data base manager. 

Screens 119 and 120 are examples of 
two applications using the simple FMS. 
The first is a standard name and ad- 
dress file system. The second maintains 
a mold catalog for a ceramics shop. 


Summary 

The steps required to build and use a 
file with this package are: 

(1) Draw up the desired screen layout, 
and mark row and column positions for 
each field. 

(2) Define the description table using 
PBUILD. 

(3) Pick a range of blocks for the file, 
and set the record count in the first 
block to 0. 

(4) Define the top-level application 
word to: 


— Call IREC to initialize the 
starting block and record 
length 

— Set up-the page table pointer 
with PINIT 

— BEGIN PMENU UNTIL 

(5) Start the application by invoking 
the top-level word. 

Once started, the maintenance func- 
tion is menu-driven. Selecting the Add 
function adds a new record as the next 
sequential record number. You should 
modify List for the application; as it 
stands, it displays a record number and 
the first 20 characters of each record. 
Change and Display both select by rec- 
ord number. You could easily change 
Display to do a search on a specific 
field. Change displays the selected rec- 
ord as it currently exists and allows 
changes on a field-by-field basis. To 
step past a field without changing it, 
press Return. To change a field, type 
over it. 

I hope this little system and its sup- 
porting routines prove useful. Keep in 
mind that this package, while useful as 
it stands, is really just the demonstra- 


tion of a concept and is begging for ex- 
pansion. Items that should be added 
are a record delete function, keyword 
indexing, and a full screen editor to as- 
sist in building the PBUILD table. In 
the meantime, it has served its primary 
purpose of helping me learn a little bit 
about Forth. 


A Postscript 

I commented earlier that perhaps the 
Commodore 64 was not the best 
choice for this project. I don’t want to 
leave you with the wrong impression. 
The C64 is a great little computer for 
the money; its weakness for this 
business application is the slow speed 
of disk drives. Disk copies take so long 
to create that they would probably be 
ignored by the casual or inexperienced 
user; a lack of backup files might 
eventually prove disastrous. 
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File Maintainance Listing (Text begins on page 24) 


Screen # 185 
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Screen # 184 

H €¢ RECORD ACCESS 3 
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LENGTH 3 
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32 + EMIT ;: 


VARIABLE RNO 


INITIALIZE RECORD POINTERS) 


(Continued on page 28) 
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COHERENT" IS SUPERIOR TO UNIX’ 
AND IT’S AVAILABLE TODAY 
ON THE IBM PC. 


Mark Williams Company hasn't just taken a mini-computer 
operating system, like UNIX, and ported it to the PC. We 
wrote COHERENT ourselves. We were able to bring UNIX 
capability to the PC with the PC in mind, making it the most 
efficient personal computer work station available at an 
unbelievable price. 


For the first time you get a multi-user, multitasking operating 
system on your IBM PC. Because COHERENT is UNIX- 
compatible, UNIX software will run on the PC under 
COHERENT. 


The software system includes a C-compiler and over 100 utili- 
ties, all for $500. Similar environments cost thousands more. 


COHERENT on the IBM PC requires a hard disk and 256K 
memory. It’s available on the IBM XT, and Tecmar, Davong 
and Corvus hard disks. 


Available now. For additional information, call or write, 
Mark Williams Company 


1430 West Wrightwood, Chicago, Illinois 60614 
312/472-6659 





(i) Mark 
Williams 
UU Company 


COHERENT is a trade mark of Mark Williams Company. 
*UNIX is a trade mark of Bell Laboratories. 
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File Maintainance Listing (Listing Continued, text begins on page 24) 


? REN 2 BeiLOCK sho ¢ BBLOCK IS START OF FILED 
14 
11 : RECORD ¢ RNO --- ADDR RETURNS RECORD ADDRESS 3 
RNOQ ! 1826 *RLEN: @ 7: REC/SLE:.! 

13 RNO @-REC/BLK © /MOD € POSITION IN BLOCK) 
14 BBLOCK @ + BLOCK SWAP RLEN @ X¥ + DUP RLOC ! ; 
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Screen # 187 
¢ NUMERIC CHECK ROUTINES - ?DIGIT @NUMBER 3 
H VSRIGBLE DFLAG { BPIGIT FLAG 


?DIGIT ( No--- F IS CHARACTER A DIGIT? > 
DUP 47 > SWAP 5S& < AND ; 


“NUMBER Se, ee) 
8 DFLAG ! DUP 11 + SWAP DO 
fOTGIT TP o 2 -DFLAG 
Pieok 
32 = | C@ @= OR 
IF LEAVE ELSE I C@ 46 = @= 
IF @ DFLAG ! LEAVE 
13 THEN THEN THEN LOOP 
14 DFLAG & ; 
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LOQF SWAP DROF ; 
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WA DDG. ee.) © WAIT FOR KEYPRESS 3 
CR CR . ANY KEY TO CONTINUE" KEY DROF ; 


INPUT ( NUMBER INPUT 3 
PAD 11 EXPECT PAD LEN FAD + 32 SWAP C! FAD 1 - NUMBER ; 
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VARIABLE PLOC PAGE TABLE LOCATION 3 
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SOFTWARE DEVELOPERS 





LESS THAN $400 WILL TURN 





YOUR PC INTO A POWERFUL 


DEVELOPMENT WORKSTATION. 


Until now, software developers who 
wanted the power of high-priced develop- 
ment systems had to pay a high price for it. 
There was no choice. 

Now, there’s a solution. . .whether you’re 
developing programs to run on minicom- 
puters or micros, and regardless of what 
target operating system you’re using. 

If an IBM® PC, PC XT™, or compatible is 
part of your development environment, the 
uNETix Software Development ToolKit will 
increase your productivity. 

LANTECH SYSTEMS has put an end to 
the ‘“‘no choice’ problem with a collection 
of powerful software products which make 
your PC a versatile, but low cost develop- 
ment workstation. 

The uNETix Software Development Tool- 
Kit contains: 

e uNETix SFS — the powerful multi-tasking, 
UNIX™ compatible operating system, 
which is at the heart of the LANTECH 
SYSTEMS product line. The unique ‘‘Win- 
dow Management”’ feature provided with 
uNETix allows easy integration of applica- 
tions software and permits data to be 
moved between various window processes 
(such as the Emulator or Editor described 





e VT100® Terminal Emulator (VTTY) — 
permits up-loading and down-loading of 
data between your PC and a larger mini 
or mainframe computer. This function, of 
course, means that larger-scale develop- 
ment tasks can be run on more powerful 
machines, while permitting you to pro- 
cess other tasks locally. 

e TEXT EDITOR — allows powerful, full- 
screen editing at the workstation level or 
you can use your familiar mainframe edi- 
tor through the terminal emulator. Several 
popular editors are available. 

The LANTECH SYSTEMS uNETix Soft- 
ware Development Toolkit is the solution to 
your software development needs, at an 
affordable price of $399. Quantity discounts 
are available. 

Optional Lattice® C Compilers are avail- 
able from LANTECH SYSTEMS to develop 
programs locally to run under uNETix, or 
PC DOS™. Programs developed for uNETix 
can, of course, be easily ported to other 
UNIX environments. Lattice C Cross Com- 
pilers are also available for a variety of 
minicomputers. 

To order your ToolKit, or to get more in- 
formation contact: 


LANTVIECH SYSTEMS 


INCORPORATED 


9635 WENDELL ROAD, DALLAS, TEXAS 75243 
(214) 340-4932 EX. 200 


uNETix is a trademark of Lantech Systems, Inc. IBM is a registered trademark of International Business Machines. UNIX is a trademark of Bell Laboratories, AT&T Technologies. VT1 00 is a trademark of Digital 
Equipment Corp. Lattice is a registered trademark of Lattice, Inc. PC DOS is a trademark of International Business Machines. XT is a trademark of International Business Machines. Minimum system configuration is 
IBM PC with 512K RAM, monochrome or color display. RS232 port required for VT100 connection. 
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Screen # 118 
© FILE MAINT - PBUILD 3 


© THIS BUILOS THE FILE & SCREEN DESCRIFTION THAT CONTROLS 3 
© THE WHOLE PROCESS -—- ENTER WITH NUMBER OF FIELDS ON STACK 3 


Ss PRULED 


“JO Of & OF hoe & 


CBUILGS DUFF Cc, @ DO ( NOUOF_FLDS --- > 
32 WORD HERE NUMBER DROP C, ©¢ ROW TO DISPLAY PROMPT > 
32 WORD HERE NUMBER DROP C, ¢ COLUMN "4 ' 
a 32 WORD HERE NUMBER DROP C, ¢ ROW FOR INPUT DATA 3 
5 S32 WORD HERE NUMBER DROP C, «© COLUMN " " ; 
10 32 WORD HERE NUMBER DROP C, ¢ INPUT DATA LENGTH 3 
ii 32 WORD HERE NUMBER DROP C, ¢ INPUT DATS TYPE >? 
i2 32 WORD HERE NUMBER DROP C, ¢ DAT& POSITION IN REC > 
3 34 WORD HERE C@ 1+ ALLOT ( PROMPT TEXT TO DISPLAY > 
14° - LOOP DOES} : 


iS --> 


screen # iii 
©. FILE MAINT - FFIND FBDISPL&Y PDISPLAY 2 
FFINO ¢ FNOQ --- FLOC FIND FIELD DATA IN TABLE 3 
PLOC @ i+ FLOC ' -DUP IF 
@ Da 
FLOC @ * + DUP C@ + 1+ FLOC | 
LOOP 


LA hie & 


& THEN EG es 

a FDISPLAY ¢ FLOC --- > COT SPLRY oRIELD” 3 “PROMPT: > 
8 DUP DUP C@ SWAP i+ C@ XY 7 + COUNT TYPE 

¥ FLOC @ 2°+ C@ FLOC @ 3 + Ce XY FLOC © 4 + Ce 


@ DO $5 EMIT LOOP ;: 
PDISPLAY ¢ --- > ¢ DISPLAY FULL PAGE OF PROMPTS > 
CLS PMAX C@ @ DO 
I FFIND FDISPLAY 
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Screen # 112 
. FILE MAINT - FFDSTS FOATA 3 


( PFDATA CHECKS TO SEE IF FIELD GETS DATA - COULD BE > 
( DISPLAY ONLY ) 


FFDATA € FLOC --- FLOC TRUE or FLOC --- FALSE 3 
DUP 4 + C@ @= IF DROP @ ELSE 1 THEN : 


IN J. Go Ple a 4 
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i FLOC ce { FIELD LENGTH > 
2 FLOC & 3 CoP PEL TYRES 
3 ELSE r) ( NOT A DATA FIELD 3 
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VARIABLE FTYPE 
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ROT ROT 2DUP BL FILL DROP 
PAD SWAP ROT CMOVE ; 
FNUM 2DROP PAD DUP 11 + SWAP DO I ce a= 
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é PAG NUMBER IF PAD 1- NUMBER oe MS SAN 4 i © ay 3 SO eee 
@ + FPOBL FRDRTA “DUP TE ore Bisset 9 

= FTYPE | PAD OVER EXPECT PAD LEN -DUP IF 

So es 


: FTYPE @ # = IF FTEXT THEN 

1a FTYPE @ 1 = IF FNUM DROP SWAP C! THEN 
ii FTYPE @ 2 = IF FNUM DROP SWAP |! THEN 
iz FTYPE @ 3 = IF FNUM DROP SWAP | THEN 
19 FTYPE @ 4 = IF FNUM ROT 2! THEN 

ig FTYPE @ S = IF FNUM ROT 2! THEN 


15 ELSE 2DROP THEN THEN ; --> 


Screen # 114 
( FILE MAINT - PUT DATA TO SCREEN - . FPUT a ; 
.& SWAP OVER DABS ( DISPLAY MONEY FIELD > 
<# # # 44 HOLD #S SIGN #> TYPE SPACE ; 


FRUT « FNG --- 3 
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DISPLAY DATA FIELD 3 


“Odo “Jo OU fs Oo hoe om 


FDATA -DUP IF FTYPE | 
FTYPE @ 9 = IF TYPE THEN 
FTYPE @ 1 = IF SWAP C@ SWAP .R THEN ¢ CHAR) 
FTYPE @ 2 = IF SWAP @ SWAP .R THEN ¢ SINGLE } 
FTYPE @ 2 = IF DROP @ @ .$ THEN ¢ DOLLARS > 
1a FTYPE @ 4 = IF SWAP 2@ SWAP D.R THEN 
11 FTYPE @ 5 = IF DROP @ .# THEN ¢ D8’S 3 


12 THEN 
12 
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Screen # 114 
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File Maintainance Listing (Listing Continued, text begins on page 24) 


Screen # 117 
H@ ¢ FILE MAINT - PSELECT FEND 3 
1 
Zz PSELECT f PICK A&A RECORD FOR FURTHER ACTION 3 
3 Cis CR a" ENTERS RECGRD: Nis 
o INPUT DROP 
a DUP PHIGH © > IF ." NO SUCH RECORD" DROP &@ 
& ELSE RECORD OROP 1! THEN; 
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8 PEND © TERMINATE THIS TASK 3 
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18 PHIGH © & RECORD !' UPDATE 
11 CLS." SAVING: FILES": CR 
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1 +: PMENU CLS 6 19 XY ." FILE MAINTAINANCE" 
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14 
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Screen # 128 
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GREAT PROGRAM... 
TERRIBLE MANUAL 


How often have you seen or heard that said 
about software? 

If you have a first-class program you deserve the 
BEST documentation. At A/N SOFTWARE we can 
provide you with a top-quality manual in the 
shortest possible time. 

Whether it’s a complete service from writing, 
to design, artwork, typesetting, mechanicals, and 
printing, or any step along the way, your manual 
will be in a class with the best documentation 
available today. 

Our staff consists of writers, artists, testers, 
and even includes a CPA. Business and technical 
programs are a specialty. We pride ourselves on 
designing manuals that look expensive, but aren’t. 

We understand the time constraints of the soft- 
ware business; we’ll meet your deadlines. 

We’re proud of our work and would like to send 
you samples. For additional information, samples, 
Or just some advice from the experts call: 


. 516-549-4090 . . . or write 


Fall SOFTWARE Inc. 


P.O. Box 895° 
Melville, NY 11747 
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End Listing 


Now Your 
Computer 
Can See! 


$295.00 


A total imaging system complete 
and ready for plug-and-go opera- 
tion with your personal computer. 


The MicronEye™ offers select- 
able resolution modes of 256 x 128 
and 128 x 64 with operating speeds : MicronEye™ 
up to 1D FPS. An electronic shutter “Bullet” 
is easily controlled by software or | 
manual functions, and the included pant programs allow you to con- 
tinuously scan, freeze frame, frame store, frame compare, print and pro- 
duce pictures in shades of grey from the moment you begin operation. 
Only the MicronEye™ uses the revolutionary IS32 OpticRAM™ image 
sensor for automatic solid state image digitizing, with capability for grey- 
tone imaging through multiple scans. And with these features, the 
MicronEye™ is perfectly suited for graphics input, robotics, text and 
pattern recognition, security, digitizing, automated process control and 
many other applications. 
The MicronEye™ is available with immediate delivery for these com- 
puters: Apple II, IBM PC, Commodore 64 and the TRS-80CC (trademarks of 


Apple Computer Inc., International Business Ma- 
chines, Commodore Corp., and Tandy Corp. 


respectively). 
Phone for MicronEye™ information 


the Macintosh, Tl] PC and RS232 @. 
(indenie of Apple Computer Inc. and Texas In- TECH NOLOGY, INC. 


struments respectively.) 
*(Add $10.00 for shipping and handling [Federal VISION SYSTEMS 


Express Standard Air]; residents of the following 2805 East Columbia Road 
states must add sales tax: AK, AZ, CA, CO, CT, FL, Boise, Idaho 83706 

GA, IA, ID, IL, IN, LA, MA, MD, ME, MI, MN, NC, NE, (208) 383-4106 

NJ, NY, OH, PA, SC, TN, TX, UT, VA, VT, WA, WL.) TWX 910-970-5973 
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Forth and the 
Fast Fourier Transform 


by Joe Barnhart 


34 


and the engineer, the Fast Fourier 
Transform (or FFT) has found its 
way into a fantastic number of applica- 
tions. Heat transfer, medical imaging, 
and sales data analysis are just a few of 
the FFT’s many capabilities. In this ar- 
ticle, I use the FFT to analyze stock 
market data and detect cyclic trends. 
This FFT package is written in the 
Forth language. Novices to Forth of- 
ten wonder how any serious work can 
be done without floating-point num- 
bers. Forth programmers can benefit 
from seeing how the FFT was convert- 
ed from an algorithm that is usually 
performed with floating-point num- 
bers into one that is suitable for Forth’s 
fixed-point math. Not surprisingly, the 
fixed-point version will run rings 
around most floating-point versions in 
terms of execution speed. 
This program was written with 


E ong the province of the scientist 


A Little Theory 

What exactly does the Fourier Trans- 
form do? Put simply, it relates time to 
frequency. For example, imagine a man 
beating two rocks together at a steady 
rate. If you graph the sound made by 
the rocks versus time, you get the curve 
shown in Figure | (page 36). Every 
fourth point shows the sound made as 
the rocks came together. On the other 
hand, you might represent the event by 
the graph in Figure 2 (page 36). In this 
graph, you can see that the axes are la- 
beled in terms of sound versus frequen- 
cy, and the only response is at 0.25 Hz 
(or 0.25 beats/second). These two 
graphs are equivalent ways of looking 
at the same process. 

As a more realistic example, consid- 
er the tone source for an electronic mu- 
sic synthesizer. It can produce many 
different musical timbres by altering 
the shape of the tone waveform. Figure 


Those accustomed to using floating-point arithmetic 
often bemoan Forth’s fixed-point orientation. It’s 
remarkable, though, how much you can do—and how 
efficiently you can do it—using only fixed-point math. 


transportability in mind. Because this 
program is written in the new Forth-83 
Standard version, it should be trans- 
portable to many different systems. I 
used a Forth system from Laboratory 
Microsystems, Inc. (LMI), that ad- 
heres to the new standard and runs un- 
der the CP/M-68K operating system. 
My hardware is a Sage II with an 8- 
MHz Motorola 68000 processor, but 
the same code runs without modifica- 
tion on LMI’s IBM PC/Forth and Z80 
Forth (also Forth-83 Standard). 


ee ck ss Be 
Joe Barnhart, 522 Talbot Avenue, A|- 


bany, CA 94706. 


3 (page 36) shows a square wave. The 
sound that the wave represents is 
harsh, sharp, and buzzing because it is 
composed of many high frequencies. If 
you look at the square wave with a tool 
called a spectrum analyzer, you see the 
pattern in Figure 4 (page 36). The 
square wave is composed of many dif- 
ferent pure sine waves. The Fourier 
Transform of the square wave yields 
exactly the same pattern as does the 
spectrum analyzer. 

The Discrete Fourier Transform 
(DFT) is a simple extension of the Fou- 
rier Transform that handles data that 
is represented as points instead of con- 
tinuous curves (Figure 5, page 36). 
The Fast Fourier Transform (or FFT) 
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is a quick method of computing a Dis- 
crete Fourier Transform. 

To gain speed in computing a Fouri- 
er Transform, the FFT algorithm re- 
quires that the number of input sam- 
ples (data points) be an integral power 
of 2 (e.g., 64, 128, 256). Also, the num- 
ber of time samples (input to the FFT) 
and the number of frequency samples 
(output from the FFT) are the same. 
These restrictions are a small price to 
pay for the tremendous increase in 
speed of the FFT over the DFT 
algorithm. 

How much faster is the FFT? In the- 
ory, the time required to calculate a DFT 
is proportional to 2, where WN is the 
number of pointers in the input data. 
The FFT requires time proportional to 
only N*log,/V. For example, say a DFT 
takes one second to calculate a 128-point 
transform. The FFT of the same data on 
the same computer can be calculated in 
only 55 milliseconds! 

For the technically inclined, the FFT 
algorithm presented here is a radix-2, 
decimation-in-time version. This pro- 
gram takes a complex input array and 
returns a complex output array—lI 
haven't taken advantage of special 
symmetry conditions to make the algo- 
rithm run faster. On the other hand, 
this is the most general use of FFT al- 
gorithms because it makes no assump- 
tions about the input data. 


The Whole Banana 

For clarity and modularity, this pro- 
gram is broken in to four distinct mod- 
ules: a complex math package, a one- 
dimensional array package, the FFT 
algorithm itself, and the demonstra- 
tion application. 


Complex Numbers 
To implement an FFT program, the 
computer must be able to use complex 
- 1. The value of a complex number is 
derived from the square root of nega- 
tive one. I won’t dwell on the theory of 
complex numbers here: instead, I'll 
discuss this implementation of a com- 
plex-number package in Forth. 
Complex numbers occupy twice as 
much space as normal integers in 
Forth. Each complex number is com- 
posed of two distinct parts, called the 
“real” and the “imaginary” parts of 
the number. In my implementation, 
the real part is always on the top of the 
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stack and the imaginary part under- 
neath (Figure 6, page 36). Routines 
are defined to add, subtract, divide, 
and multipiy complex numbers (X+, 
X-, X*, X/). Other functions unique 
to complex numbers are magnitude 
(IX!) and conjugation (X’). 

The complex arithmetic functions 
X* and X/ operate on scaled numbers. 
For instance, I often scale numbers so 
that 10000 represents the number 
1.0000. Whenever two scaled numbers 
are multiplied, the result must be divid- 
ed by the scale factor. Similarly, after 
dividing two scaled numbers, the result 
must be multiplied by the scale factor. 
To increase accuracy, intermediate 
products are maintained in double pre- 
cision, as in the Forth word */. Addi- 
tion and subtraction of scaled numbers 
is identical to the same operations per- 
formed on numbers without scaling. 


One-Dimensional Array 
A one-dimensional array is often re- 
ferred to as a vector in math and engi- 
neering circles. This vector definition 
is a general-purpose one and can serve 
many programs other than this FFT. 
The vector data structure (Figure 7, 
page 37) contains the number of vector 
elements, the size of each element (in 
bytes), the scale factor of the vector, 
and the number of bytes of storage 
used by the data area of the vector. 
Independence from machine word 
size is always beneficial when moving 
an application from one computer to 
another. This array is indexed by eie- 
ment number rather than by byte off- 
set. A complex number requires four 
bytes (in a 16-bit Forth system) and an 
integer 2, but the seventh element of a 
complex array is accessed in exactly 
the same way as the seventh element of 
an integer array. Because the size of 
each entry is stored with the array, it is 
a simple matter for the indexing word, 
[ I ], to determine the byte offset from 
the element number. 


FFT Routine 
This algorithm was taken from a For- 
tran program (reference 2, page 40). It 
is a simple, direct method of calculat- 
ing the Fourier Transform of discrete 
points. The program consists of two 
parts: a bit reversal and the FFT “ker- 
nel”’ itself. 

This program can compute both the 
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Sound 
Intensity | 


1234 6 6 | 
Time (seconds) —» 


Figure 1 A sound is made every 4 seconds. 


Amplitude 


Time —> 


Figure 3. A “square” wave. 
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Figure 5 “Discrete” data in the form of a 
square wave. 











Sound 
Intensity 


0.25 0.5 0.75 


Frequency (Hz) —» 


Figure 2 Another way of graphing the 
same sound. 






Amplitude 


Frequency (Hz) —» 


Figure 4 The frequency content of the 
square wave. 


real part of X 


image part of X 


Figure 6 Complex number representation 
on the stack. 
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FFT and the Inverse FFT (IFFT). The 
intended direction of the transform is 
held in the variable DIR (true = in- 
verse transform). The address of the 
data array and the number of elements 
in the array are held by variables, be- 
cause they are referred to at all levels of 
nesting. 

Bit reversal reorders the vector in 
preparation for the computation of the 
transform. This “shuffling” of the data 
is one reason why the FFT is so much 
quicker than the DFT. Figure 8 (page 
37) shows a small data array and how it 
is reordered by the routine BIT- 
REVERSE. 

After ordering of the data, the trans- 
form itself is computed as a loop within 
a loop. The inner loop (INNER-LOOP) 
is factored out of the outer loop (FFT- 
KERNEL) for readability. At each 
point in the inner loop, a computation 
nicknamed “butterfly” is performed. 
Looking at the diagram of the butterfly 
computation (Figure 9, page 37), you 


can see how the name was chosen. No- 
tice that direction of the FFT is tested in 
the routine BFLY. One of the few dif- 
ferences between a FFT and its inverse 
is that the FFT is scaled (divided) by the 
number of points in the data array. 

To free myself from the tyranny of 
trignometric functions, I created a ta- 
ble, WTAB, that contains the sines and 
cosines needed for FFT computations. 
WTAB is in the same form as a com- 
plex vector, so you can access it with 
the same words used for vector opera- 
tions (especially [I ]). For FFT’s, only 
the sine and cosine for angles of pi/N 
are needed, where WN is the number of 
data points. This table can handle 
FFT’s of up to 128 points and is easily 
extended for larger FFT’s. 


The Application 

The hardest part of having an FFT pro- 
gram is deciding what to use it on. 
With so many potential applications, 
it’s hard to settle on one for demonstra- 


low memory 


tion purposes. I originally wrote this 
package for use with image processing 
applications, but it is so useful I’m 
finding new applications daily—such 
as looking at stock market trends. 

Few of us doubt that stocks move in 
cyclical patterns. In screen 35 (page 
49) I’ve tabulated the price of IBM 
common stock by week for all of 1983. 
The price is normalized to 100—for in- 
stance, a price of $117 and 7/8 is en- 
tered as 11788 ($117.88). Just looking 
at the raw data, we can see some evI- 
dence of cycles (Figure 10, page 38). 
Some cycles in this data are masked by 
noise—hidden from the _ casual 
observer. 

A few notes about the data used in 
this example are in order. Notice that I 
have only 52 data points to transform. 
The FFT only works with a number that 
is an integral power of 2 (such as 64). 
To use the FFT in this case, I’ve filled 
the array with zeros up to 64 points. 
When using the FFT on this data, some 


index in binary 


: | - # of elements 


X(0) 000 
Atl) =-«OO01 
X(2) 010 
At3). «(O11 
X(4) 100 
X(5) 101 
X(6) 110 
X(7) 11] 


| size of element 


_ : | : "sca ling constant : os. 
x 
xX) _ - 


| total data area 


ot at) 


ish 


data (2) 


before bit-reverse after bit-reverse 


ae 


| Figure 7 


ao ur Figure 8 
‘Vector data structure. 


Bit-reversal of asmall array. 














Xm (a) O 


. Figure 9 Flow graph of a “butterfly” computation. 
: = (Source: Digital Signal Processing, Oppenheim & Schaeffer, Prentice-Hall, pg. 296, fig. 6.9 
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NGS FORTH 


A FAST FORTH 

OPTIMIZED FORTHE IBM 
PERSONAL COMPUTER 
AND MSDOS COMPATIBLES. 
*79 STANDARD 

*FIG LOOKALIKE MODE 
*PC-DOS COMPATIBLE 
*ON-LINE CONFIGURABLE 


*ENVIRONMENT SAVE 
& LOAD 


*MULTI-SEGMENTED 
*EXTENDED ADDRESSING 
*AUTO LOAD SCREEN BOOT 
*LINE AND SCREEN EDITORS 


*DECOMPILER & 
DEBUGGING AIDS 


*8088 ASSEMBLER 

*BASIC GRAPHICS & SOUND 
*NGS ENHANCEMENTS 
*DETAILED MANUAL 
*INEXPENSIVE UPGRADES 
*NGS USER NEWSLETTER 


A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 


PRICE: $70 


PLEASE INCLUDE $2 POSTAGE & 
HANDLING WITH EACH ORDER. 
CALIFORNIA RESIDENTS : 
INCLUDE 6.5% SALES TAX. 


uP 
NEXT GENERATION SYSTEMS 
P.O.BOX 2987 


SANTA CLARA, CA. 95055 
(408) 241-5909 
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phantom responses can creep in be- 
cause of the zeros. I’ve reduced the er- 
rors by employing a special technique 
called windowing the data—a process 
that reduces the sharpness of the data 
and hence the phantom responses (ref- 
erence 1, page 40). 

Performing a Fourier Transform on 
this stock data, we get a plot of all cy- 
cles in the data and their relative sizes 


$90/share $130/share 
1 tc 
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Price of IBM stock by week in 1983 


Figure 10 


(Figure 11, page 40). Even after disre- 
garding normal endpoint effects (indi- 
ces1..9and10..140n Figure 11),a 
few cycles are left. One curious cycle is 
at index 24, which corresponds to an 
event that repeats every 20 months or 
so. Along with their knowledge of the 
company, some stock chartists use the 
FFT to help forecast the future price of 
a stock, given its history. 
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Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 4 years of actual 
use. Ask NASA, IBM, Xerox or the 
hundreds of other organizations that use 
them. Every time you see a new micro- 
processor-based product, there’s a good 
chance it was developed with Avocet 
cross-assemblers. 


Avocet cross-assemblers are easy to use. 
They run on almost any personal com- 
puter and process assembly lanquage for 
the most popular microprocessor families. 


Your Computer Can Be A 
Complete Development System 
Avocet has the tools you need to enter 


and assemble your soft-ware and finally 
cast it in EPROM: 


VEDIT Text Editor makes source code 
entry a snap. Full- screen editing plus a 
TECO.-like command mode for advanced 
tasks. Easy installation - INSTALL pro- 
gram supports over 40 terminals and 
personal computers. Customizable 
keyboard layout. CP/M-80, CP/M-86, 
WS PO TOS 3 Se oe. $150 


EPROM Programmers let you pro- 
gram, verify, compare, read, display 
EPROMS but cost less because they 
communicate through your personal 
computer or terminal. No personality 
modules! On-board intelligence provides 
menu-based setup for 34 different 
EPROMS, EEPROMS and MP Us (40-pin 
devices require socket adaptors). Self- 
contained unit with internal power supply, 
RS-232 interface, Textool ZIF socket. 
Driver software (sold separately) gives 
you access to all programmer features 
through your computer, lets you down- 
load cross-assembler output files, copy 
EPROM to disk. 


Model 7228 Advanced Programmer 
— Supports all PROM types listed. Super- 
fast “adaptive” programming algorithm 
programs 2764 in 1.1 minutes. 


Model 7128 Standard Programmer — 
Lower-cost version of 7228. Supports all 
PROM types except “A” versions of 2764 
and 27128. Standard programming algo- 
rithm programs 2764 in 6.8 minutes. 


Model 7956 and 7956-SA Gang Pro- 
grammers — Similar features to 7228, 
but program as many as 8 EPROMS at 
once. 7956-SA stand-alone version copies 
from a master EPROM. 7956 lab version 
has all features of stand-alone plus RS- 
232 interface. 


EPROM: 2758, 2716, 2732, 2732A, 2764, 2764A, 
27128, 27128A, 27256, 2508, 2516, 2532, 2564, 68764, 
68766, 5133, 5143. CMOS: 27C16, 27C32, 27C64, 
MC6716. EEPROM: 5213, X2816A, 48016, 12816A, 
5213H. MPU (w/adaptor): 8748, 8748H, 8749, 
8749H, 8741, 8742, 8751, 8755. 


7228 Advanced Programmer $ 549 
7128 Standard Programmer 429 
7956 Laboratory Gang Programmer 1099 
7956-SA Stand-Alone Gang Programmer 879 
PDV Driver Software 95 


481 8748 Family Socket Adaptor 98 
is 8751 Socket Adaptor 174 
8755 Socket Adaptor 135 


CABLE RS-232 Cable (specify gender) 30 


HEXTRAN Universal HEX File Con- 
verter — Convert assembler output to 
other formats for downloading to de- 
velopment systems and target boards. 
Also useful for examining ubject file, 
changing load addresses, extracting parts 
of files. Converts to and from Intel, 
Motorola, MOS, RCA, Fairchild, Tek- 
tronix, Tl, Binary and HEX/ASCII Dump 
formats. For CP/M, CP/M-86, MSDOS, 
PODOS. oot ee EPs Eee $250 


Ask about UNIX. 
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Would you hire an entire band when . 
all you need is one instrument? Of 
course not. 


So why use a whole orchestra of 
computers when all you need is one 
to develop software for virtually any 
type of micro-processor? 


The secret? Avocet’s family of 
cross-assemblers. With Avocet 
cross-assemblers you can develop 
software for practically every kind of 
processor — without having to 
switch to another development 
system along the way! 





AVOCET’S SUPERB 68000 CROSS- 
ASSEMBLER — With exhaustive field 
testing completed, our 68000 assembler 
is available for immediate shipment. 
XMAC68K supports Motorola standard 
assembly language for the 68000 and 
68010. Macros, cross-reference, struc- 
tured assembly statements, instruction 
optimization and more. Linker and 
librarian included. Comprehensive, well- 
written manual. XMAC682 for MK68200 
has similar features. 


Call us toll-free for some straight talk 
about development systems. 


1-800-448-8500 


(in the U.S. Except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now available 
--please specify. Prices do not include shipping and handling -- call for exact 
quotes. OEM INQUIRIES INVITED. 


*Trademark of Digital Research **Trademark of Microsoft 


AVOCET 
SYSTEMS INC: 





DEPT. 984-DDJ 

804 SOUTH STATE STREET 
DOVER, DELAWARE 19901 
302-734-0151 TELEX 467210 


Other Uses 
My original use for this FFT package 
involved the field of image processing. 
I used this one-dimensional FFT to 
build a two-dimensional FFT and per- 
formed filtering and restoration on 
digitized images. 

Other uses for this transform 


position of the shape on the tablet. 


References 

1. Theory and Application of Digital 
Signal Processing, Lawrence Ra- 
biner and Bernard Gold, Prentice 
Hall, Englewood Cliffs, NJ. A good 
second book on the FFT and its uses. 


execution (left side) and after execu- 
tion (right side). The top of the stack is 
on the right side of each list. The words 
are listed in order of their definition. 
D2* ( dbl dbl --- dbl ) 

Multiply a double-precision num- 
ber by 2. Used by the square-root 


abound. If you have a microphone and You should be familiar with the ru- routine. 
can digitize its output, you can use the diments of the FFT before tackling | EASY-BITS, 
FFT to estimate the frequency re- this book. 2’S-BIT, 
sponse of your stereo system. Feed | 2. Digital Image Processing, Rafael | 1’S-BIT 


your stereo with a white noise source 
and sample the output from the micro- 
phone at intervals of 25 microseconds 
or so. The FFT of the microphone’s 
output indicates the frequency re- 
sponse of your stereo. 

An exciting use of the FFT is in the 
field of shape recognition. Using a 
touch tablet or digitizer, draw a partic- 
ular shape (such as a square) over and 
Over again, in various sizes and orien- 
tations. Take the (x, y) pairs from the 
touch tablet and run them through the 


Gonzales and Paul Wintz, Addison- 
Wesley, Reading, MA. Excellent 
book on all aspects of image pro- 
cessing, including the two-dimen- 
sional Fourier Transform and the 
material on Fourier descriptors. 

3. The Fourier Transform and its Ap- 
plications, Ronald Bracewell, 
McGraw-Hill, New York, NY. A 
good first text on the Fourier Trans- 
form, this book requires first-year 
calculus for full understanding. 


Captive definitions used only by 
the double-precision square-root 
routine. 
SORT ( dbl --- sgl ) 

Take the square root of a double- 
precision number and leave the sin- 
gle-precision result on the stack. 
This word uses the double-precison 
extension word DU< (which is 
Forth-83 but may not be on your 
system). It can be defined as: 
>: DU< ROT SWAP 2DUP U< 

IF 2DROP 2DROP —1 


FFT. From the output of the FFT, coef- | Glossary ELSE = >R. U=— RS 
ficients can be calculated (called AND 

‘Fourier descriptors’) that are unique | These entries are stack diagrams and THEN ; 

for each shape processed. Recognition | definitions of the Forth words defined | SOR (sgl --- dbl ) 


of shapes and characters is much easi- 
er with these descriptors because they 
are invariant to the size, rotation, and 


in the FFT program. I’ve pointed out 
non-Forth-83 words where I’ve used 
them. Stack contents are shown before 
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Square the single-precision num- 
ber and leave the double-precision 
result on the stack. This definition 
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uses the word M*, which is not 
Forth-83 Standard. M* takes two 
-single-precision arguments and 
leaves a signed, double-precision 
product on the stack. An equiva- 
lent Forth-83 definition is: 
: M* OVER OVER XOR >R 
ABS SWAP ABS UM* 
R> 0< IF DNEGATE 
THEN ; 
(addr --- cmplx ) 
Fetch a complex number from 
address and leave it on the stack. 


X@ 


x! (cmplx addr --- ) 
Store a complex number at 
address. 

XVARIABLE (ee) 


Create a named entity that, when 
executed, leaves the address of a 
complex number storage location 
on the stack. 

XCONSTANT  ( cmplx---_) 

Create a named entity that, when 
executed, leaves a complex num- 
ber on the stack. 

XDUP ( cmplx --- cmplx cmplx_) 
Duplicate the complex number on 
the stack. 

XSWAP = (cmplx2 cmplx1 --- 

cmplx1 cmplx2_ ) 
Swap the two complex numbers on 
the stack. 

XDROP = (cmplx --- ) 

Drop one complex number from 
the stack. 

XOVER (cmplx2 complx1 --- 

cmplx2 cmplx1 cmplx2_) 
Copy the complex number under 
the top of the stack onto the top of 
the stack. 

X2DUP (cmplx2 cmplx! --- 

cmplx2 cmplx1 cmplx2 cmplx1 ) 

Duplicate two complex numbers 

on the stack, keeping their relative 

positions. 
(cmplx2 cmplx1 --- 
cmplx2+1 ) 

Add two complex numbers and 

leave the complex result on the 

stack. 


X+ 


(cmplx2 cmplx1 --- 
cmplx2-1 ) 
Subtract the top complex number 
from the one beneath and leave 
the complex result. 

( cmplx --- cmplx/2_) 
Divide the complex number on the 
stack by 2 and leave the complex 
result. 
|x |*2 


X2/ 


( cmplx --- dbl) 
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Leave the magnitude squared of 
the complex number on the stack. 
The magnitude squared is not a 
complex number but a double-pre- 
cision integer. 

| X | ( complx --- sng_) 

Leave the single-precision magni- 
tude of the complex number on the 
stack. 

x’ ( cmplx --- cmplx_ ) 

Take the complex conjugate of the 

complex number on the stack and 

leave the complex result. (Change 
the sign of the imaginary part. ) 
( cmplx --- flag ) 

Test the complex number on the 

stack for equivalence with zero 

and leave the flag on the stack. 

x* ( cmplx2 cmplx1 scale --- 
cmplx2*1/scale ) 
Multiply two complex numbers 
and then divide the complex result 
by the single-precision scaling 
constant, leaving a complex result 

on the stack. 

( addr2 addrl n--- ) 

Both addresses point to complex 

numbers. Multiply the two com- 

plex numbers and divide by the 
single-precision scaling constant. 

Store the complex result into the 

area pointed to by addrl. 

X/ ( cmplx2 cmplx1 scale --- 

cmplx2/1 * scale ) 
Divide the top complex number 
into the one beneath and then mul- 
tiply the complex result by the sin- 
gle-precision scaling constant, 
leaving a complex result on the 
stack. 

VECTOR (order scale size --- ) 
Create a named entity that leaves 
its address when executed. The 
size of the data area is determined 
by the number of entries (order) 
and the size of each (size). The 
single-precision scaling constant 
associated with the data is saved in 
the structure. | 

& ORDER (vector --- order ) 

Given the address of a vector, 
leave the single-precision number 
of entries on the stack. 

&ESIZE ‘(vector --- size ) 
Given the address of a 
leave the single-precision 
each element on the stack. 

&SCALE (vector --- scale ) 
Given the address of a 
leave the single-precision 


X0= 


Xx*! 


vector, 
size of 


vector, 
scaling 


constant of the data on the stack. 

& SIZE ( vector --- tot_size ) 
Given the address of a vector, 
leave the single-precision total 
number of bytes used by the data 
area of the vector. 

1] ( indx vector --- addr _ ) 
Return the address of the element 
number that corresponds to index. 
If the requested element is out of 
bounds, generate an error and halt 
the program. All vectors are pre- 
sumed to start with element one. 

XVECTOR ( order scale --- ) 
When executed, create a complex 
vector (see VECTOR) with order 
elements and set the scaling con- 
stant to scale. 

X@V ( indx vector --- cmplx_) 

Retrieve the element from the 

complex vector and leave the com- 

plex result on the stack. 

( cmplx indx vector --- ) 
Store the complex element into the 
complex vector. 

(--- 10000 ) 
Scaling constant for the trignome- 
tric constants in WTAB. 

(---addr ~) 

Variable that contains a flag that 

represents the direction of the 

transform—forward (false or 0) 

or inverse (true or —1). 


XIV 


10K 


DIR 


VEC (addr) 
Variable that contains the address 
of the vector undergoing 
transformation. 

N (= agar. 


Variable that contains the size (or 
order) of the transformation. The 
same as the number of points in 
the data array. 

U {~~~ addr) 

Complex variable used only be the 
FFT routine. 

Ww (2-4 andr ©) 

Another complex variable used 
only by the FFT routine. 

V(HLJ] (ji--- addrj addri ) 
Given two indices, compute the 
address of the elements in the cur- 
rent vector (held by VEC). Leave 
the addresses on the stack. 

XSWAPV (ji--- ) 

Swap the two complex numbers in 
the vector (held by VEC) pointed 
to by iand j. 

BIT-REVERSE ( --- ) 

Reorder the complex vector (held 
by VEC) in preparation for the 


41 


FFT. For an example of a bit-re- 
versed vector, see the text. 
BFLY (ji--- ) 
Perform a butterfly computation 
on elements i and j of the vector in 
VEC. The butterfly is the form: 
X[i] = X[j] - X[i]*U 
X[j] = X[j] + X[1]*U 
If the direction is inverse, then the 
results are divided by 2. 
(sgl --- sgl ) 
Raise 2 to the power of the single- 
precision number on the stack. 
Leave the single-precision result. 
WSIZE lets this definition work on 
16- or 32-bit systems. 
LOG2 ( sgl --- sg] ) 
Leave the logarithm (base 2) of 
the single-precision number on the 
stack. Again WSIZE is for 
portability. 


2** 


WTAB (--- ) 
A complex vector that holds the 
sines and cosines for the angles of 
the form pi/N, where JN is the 
number of data points (order of 
the FFT). 

INNER-LOOP ( start incr --- ) 
Perform butterflies on the vector 
(in VEC) beginning at index 
“start” and adding “incr” each 
time. The butterfly is performed 
between index “I” and “I + incr/ 
2,” where I is the loop counter. 

FFT-KERNEL (see) 

Outer loop of the FFT program. 

Each loop sets the value of W and 

U and controls the action of the 

inner loop. 

( vector.--- ) 
Initializes the variable VEC to 
contain the address of the vector 


INIT 


and N to contain the number of 
elements. 

DO-VECTOR (« -vector ---" ) 
Perform a complete FFT or IFFT 
on the vector on the top of the 
stack. 

FFT (vector --- ) 

Initialize the direction of the 

transform (variable DIR) and call 

DO-VECTOR. 

( vector --- ) 

Initialize the direction of the 

transform and call DO-VECTOR. 


IFFT 


DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 193. 


SBS ES Peel nig Aa de iG See aren ea Ee Sate Tees eet og eRe | 
Fourier Transform Listing (Text begins on page 34) 


Screen # 6 
{ Load screen ) 


FORTH DEFINITIONS DECIMAL 


> TASK ; 

7 LOAD { complex math words ) 
LOAD { vector words ) 
LOAD { €#t words ) 

38 LOAD { demo ¢ft words ) 


—e 


Screen # 7 
{ Square and square root ) 


( from Forth Digensions Vol. IV $1, pg 9-18 by Klaxon Suralis ) 


» D2t 2DUP D+ 5 
: EASY-BITS 
§ DD oR D2* D2# RE - DUP #& 
IF R@ + R> 2# j- 
ELSE Ro 2k y+ 
THEN LOOP ; 


: 27S-BIT 
DR D2® DUP & 
IF D2# R@- R> 1+ ELSE D2* Re 2DUP UK 
IF DROP R> 1- ELSE - R> 1+ THEN 
THEN j 
--) 
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Screen # 


{ square and square root, cont. ) 


> 1°5-BIT 
>R DUP 9 


IF 2DROP R} i+ 
52768 R@ DU< B= R> + 


ELSE D2# 
THEN ; 


: SORT 


{d--- 5 ) 


§ 1 8 EASY-BITS ROT DROP & EASY-BITS 


2’5-BIT 


: SOR DUP Me ; 


--) 


Screen # 9 


: X@ 26 ; 
a Se et 


: XVARIABLE 
CREATE 


DOES> ; 


> XCONSTANT 
CREATE 


DOES» 
--) 


Xe 5 


17S-BIT ; 


WSIZE 2% HERE OVER 
ERASE ALLOT 


HERE WSIZE 2% 2DUP 
ERASE ALLOT Xx! 


so 


{ complex data type and operations ) 


( addr --- x ) 
{x addr --- ) 


Scr o 
( two elements per complex no.) 
{ initialized to zero ) 


(Sy =<5.9 

{ two elements per caplx ) 
{ save TOS into addr ) 

{ return coaplex constant) 


(Continued on page 44) 
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ROBOTICS 














ig Pee 





A Real-Time Experience 


Learning how to program was the easy 
part. Now, what are you going to do 
with your knowledge? How about 
writing a check balancing program? 


Maybe you could start developing that 
wonderful data base to keep track of 
everyone’s birthdays. However, there 
are more interesting challenges. 
Computers are very useful for track- 
ing and filing information. There’s 


Real-time computer techniques can 
control factories and machinery, mon- 
itor your home environment and pro- 
tect it from intruders, and operate lit- 
tle mechanical friends which will take 
out the garbage. 


The near future will show us ma- 
chines which respond to human voice 
controls, are capable of finding their 
own way around a house or factory 
floor, and are able to make their own 
decisions. Robotics Age teaches you to 
design and work with the practical 
real-time applications of state-of-the- 
art microcomputer technology. Robots 
are simply machines which respond to 
their environments and can act on 
their own. Computers make these ma- 
chines possible. 

After all, many people claim their 
computers are user friendly—but how 
can your computer be user friendly if 
it doesn’t come when it’s called? 

It’s time for you to experience 
Robotics Age. Explore the frontiers of 
microprocessor applications. Use the 
subscription form below to start the 
flow of vital technical information you 
need. 


2 more to computing than just manipu- 
lating data. There’s walking, talking, 
singing, listening, touching, and con- 
trol. The computer’s most powerful 
function is control. 



















































| 
| YES! Sign me up TODAY for my personal DD3 
| e subscription to Robotics Age, ; : 
° ° N 
| The Journal of Intelligent Machines. ei ; 
| Company 
Pas Non US Subscription Rates: ar = 

| at enecripeeye Payable in US funds, drawn on a US bank. Address 
| eg 12 issues $24 Subscription length will be adjusted down- $$ —__—— — = 
| 24 issues $45 ward on a pro-rata basis for any currency Town 

(| 36 issues $63 conversion charges. Foreign subscription 2 Boe cts ie 
| orders may be paid in US dollars via Master- State Zip/Postal Code Country 

Canada & Mexico Card or VISA. 
| (J 12 issues $28 7) Bill Me 
| [] 24 issues $53 

_] 36 issues $75 Credit Card Information 
| Forei ns pt ci Ea) trier Cored) ae 

Orets? Ree Card Number 

| (] 12 issues (surface) $32 Ste 
| (12 issues (Air Mail) $68 1 VISA a 
| 1) 24 issues (surface) $61 Expiration Date 

[1 24 issues (Air Mail) $133. = RETURN WITH PAYMENT TO: 
| () 36 issues (surface) $87 Robotics Age, Box 358 Signature 

C) 36 issues (Air Mail) $195 
| : Peterborough, NH 03458 Total amount Enclosed or Charged $ 4 
Be ee eae a ts es Sak UG a a a el i gl et mince enter 


Circle no. 72 on reader service card. 








Fourier Tr ansform Listi N§_ (Listing Continued, text begins on page 34) 


screen # 18 
{ complex stack words ) 


: XDUP 2DUP ; 1 ane: A 

: XSWAP 25WAP ; Cx) x2 --- x? xd) 

: XDROP 2DROP ; (“xy <--} 

: XOVER 20VER ; eS ee Ae > ee ar 6 ce 

> X2DUP 2BVER 20VER ; CAT Se. sr a: 82 oP) 
=) 


screen # 77 
( complex add, subtract, magnitude ) 


a at ROT+ IR RD: s CORD. BZ ee ee?) 
i i ROT SWAP - OR - Rd; Cad eee =~ pl=s7 9 
ney Pa 3 2/ SWAP 2/ SWAP ; ee == 2/7) 
; iki *2 SOR ROT SOR D+ ; ( x --- mag x##2 ) 
2 tk iXi*2 SORT ; 2 => Bag. x) 
me SWAP NEGATE SWAP ; ( x --- x conjugate ) 
> Xg= §= SWAP #= AND ; k= Efe) 
me 
Screen # 12 
{ complex multiply ) 
a, 
: it >R X2DUP PRL Rl yee 2a) 


ROT R@ #/ 
ROT ROT R@ #/ - 
R> SWAP >R >R 


real part = ) 
rel#re2 - isitia2 ) 
Save partial result) 


ROT ROT R@ #/ re2tial ) 
ROT ROT R> #/ + + rejtia2 ) 
Re 3 l@ag real --- ) 


This word is replaced by one on the screen that follows. The 
high level FORTH definition here is for documentation purposes, 


Screen # 273 
( assembly def for complex aultiply ) 


ASM ( load assembler if not already loaded. ) 
CODE X+ 
(SP)+ DB MOVE, (SP) D1 MOVE, 4 d{SP) DI MULS, 
2 d(SP) D2 MOVE, 6 di{SP) D2 MULS, D2 D1 L. SUB, 
D6 Di DIVS, (SP) D2 MOVE, 6 (SP) D2 MULS, 
2 d(SP) D3 MOVE, 4 d(SP) D3 MULS, D3 D2 L. ADD, 
DM D2 DIVS, 8 9 SP ADDO, D2 -(SP) MOVE, D1 -(SP) MOVE, 
NEXT, END-CODE 


a=} 
Stack indexing is used to keep the original data available as 
the coaplex product is built. When the product is complete, the 


Original data is popped off the stack and the product pushed 
onto it. 


44 


Screen # 14 
{ aore complex operations ) 


dee OVER >R OR has 8 Site FA intact Fs eee o's 1 POA, 
X@ ROT X@ R> { form xl#x2/n ) 
ee tar cam ( Save it into x2* ) 
te i >R XSWAP XOVER Otha2> a I e) 5 
X’ R@ Xt t x be¥2’>) 
XSWAP ix; DUP R@ #/ ( sqrix2i ) 
SWAP OVER R@ SWAP #/ { real part ) 
ROT ROT R> SWAP #/ SWAP $ ( imag part ) 
Screen # 15 
{ Vector definition ) 
: VECTOR { order scale word size --- ) 
CREATE ROT 2DUP , , { store order, then wsize ) 
ROT , { then store scale ) 
# DUP , ( bytes of entry storage ) 
HERE OVER ERASE ( erase vector ) 
ALLOT ( allot dictionary for entries) 
DOES? ; { return address of base ) 
j 
--) | 


This data structure holds a vector that contains “order” 

entries. Legal indicies are in the range of 1 to “order’. 
"Scale" is used in nugeric operations on entries, and the 
"word size" field describes the number of bytes per entry. 


Screen # 16 
{ vector operations } 


> SORDER ( vector descriptor --- order_of vector ) 
@ ; 

> SESTZE { vec_desc --- size of entries ) 
WSIZE + @ ; 

> &SCALE { vec_desc --- scale of vec ) 


WSIZE 2% + & | 


> &SIZE ( vec_desc --- size of data area ) 
WSIZE DUP 24 + + @ ; 
--) 
(Continued on page 46) 
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REASONABLE PRICES 


CP/M Software by 
Poor Person Software 
Poor Person’s Spooler $49.95 


All the function of a hardware print buffer at a fraction of the 
cost. Keyboard control. Spools and prints simultaneously. 


Poor Person’s Spread Sheet $29.95 


Flexible screen formats and BASIC-like language. Pre- 
programmed applications include Real Estate Evaluation. 


Poor Person’s Spelling Checker $29.95 
Simple and fast! 33,000 word dictionary. Checks any CP/M 
text file. 


aMAZEing Game $29.95 


Arcade action for CP/M! Evade goblins and collect treasure. 


Crossword Game $39.95 

Teach spelling and build vocabulary. Fun and challenging. 

Mailing Label Printer $29.95 
Select and print labels in many formats. 

Window System $29.95 


Application control of independent virtual screens. 
All products require 56k CP/M 2.2 and are available on 8” IBM and 5” 
Northstar formats, other 5” formats add $5 handling charge. California 
residents include sales tax. 


QUALITY SOFTWARE AT 


SAFE AS BASIC 
FAST AS FORTH ! 


FORTH systems with full Memory Protect. 
For IBM PC, XT, PCjr. 


Full screen editor with search/replace, block 
move/delete/repeat, Turbo-Pascal style error 
detection and correction, C style stream |/O, 
COBOL style ‘picture’ formatted output, etc. 









jrFORTH® jdeal for learning Forth $100 
includes Tutorial plus Programming Manual (300 
pages) 

N-FORTH programmer's system $360 
all features of jrFORTH plus Full Assembler, 
Vector Graphics, and much more. 


N2 FORTH advanced system $750 
Multiple segments, Conditional Compilation, 
Interactive Trace and Cross-reference facility, 
8087 support, etc. 4 books (450 pages) 


Contact: N-Forth Software Inc. 
901-1265 Beach Avenue 


Vancouver, B.C. Canada 
V6E 1V4 ng 


“=. Credit card orders: (604) 430-3466 G@& 


IBM, XT, PCjr are trademarks of International Business Machines Corp. 
* Turbo Pascal copyright Borland International 





















Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 














Circle no. 58 on reader service card. Circleno.51onreaderservicecard. 


MP ANCE =§=WODAL DTC 
0 


cor grivie> 
i Finally you can utilize the 


xemn> ne 
ms? power of Forth with efficient performance. 
Modal DTC is an interactive, extensible Direct Threaded Code 
software environment. Forth applications execute 4-5 times faster when 
loaded under Modal DTC. For example, Modal DTC runs the Sieve Benchmark in 
0.6 secs/pass on the IBMPC You get the performance of the fastest compilers in a sophisticated fourth 
generation environment. 





Package Includes: 





A Documented Demo Package 
A Detailed Operation Manual 
A Professional Support and Upgrade Policy. 


A File Management Functions 
A Full-Featured Screen Editor 
A Symbolic Debug Facility 

A Memory-Mapped Video 

A Forth Vocabulary 

A Conditionals in Open Code 
PC Extensions: : 3030 Tangley Ave. 
A 8087 Floating Point A Symbolic Processing Houston, TX 77005 
A Serial Communications A PC Color Graphics (713) 660-7394 


modal 
systems 


A Assembler with Conditional Assembly and 
Macro Capabilities 
A Conditional Compilation 





Modal DTC Release 2.1 for PC-DOS or CP/M. Special Osborne | and Osborne 
Executive versions available. Generic CP/M version available ina variety of 


VISA/MC/MO/COD 
disk formats. Specify computer and disk format. Personal License US $125.” 


Circle no. 47 on reader service card. 





Fourier Transform Listing (Listing Continued, text begins on page 34) 


Screen # 17 
{ matrix operations, cont. ) 


, CY { index vec_dese --- addr_of entry ) 
DUP OR &ORDER ( save vec desc, get entrysize) 
OVER < OVER 1 ¢ OR ABORT" Vector bounds exceeded... [1]" 
1- R@ SESIZE *# { index * entrysize ) 
WSIZE 4 # + RD + | ( toffset to entries ) 


This word calculates a storage address given a column nuaber 

and a matrix descriptor. If the desired address is outside 

of the alloted vector storage area, an exception is gener - 

ated. This word is usually followed by "@" or "'". The follow- 
Ing screen contains the assembly language equivalent. 


Screen # 18 
{ assembly language version of [i] ) 


ASM 
CODE (1) 
(SP)+ OS MOVE, 
(SP)+ D@ MOVE, 
(AB) DB CHP, 
1 # D8 SUBQ, 
6 40S ADDO, 


{ index vec_desc --- addr ) 
# d{BP, 05) Ag LEA, { a@=vec addr) 
1 # Dé CMPI, 1$ BLT, { index<1 ) 
1$ BGT, ( index ymax) 
2 d(A@) D@ MULS, { word size) 
OS -(SP) MOVE, { success ) 


Dé OS ADD, 
NEXT, 


I$: -1 # -(SP) MOVE, 2$ # OS MOVE, 
@ d(BP, OS) IP LEA, NEXT, 


{ force abort") 


2$: J] ABORT" Vector bounds exceeded... [1]" [ 
END-CODE 


Screen # 19 
{ complex vector defs ) 


: XVECTOR ( order scale --- }) 
WSIZE 2# VECTOR ; { declare a vector with two words/ent.) 


» X@V { index vec_desc --- x ) 

[1] Xe@ ; ( fetch vector entry pointed by index) 
oe be ( x index vec_ desc --- ) 

Plekt: 3 ( store into vector at position index) 


--> 


The constant WSIZE (on line 3) returns the word size of the 


Forth system used. For a t4-bit iaplementation (like LMI Forth) 
it is 2, for a 32-bit system (like LMI Fortht) it is 4. 


Screen # 26 
( FFT constants and variables ) 


19999 CONSTANT 18K ( scaling constant ) 
VARIABLE DIR ( direction of fft ) 
VARIABLE VEC { current vector base) 
VARIABLE N {( points in fft ) 
XVARTABLE J { caplx angle counter) 
XVARIABLE # {( caplx angle incr) 
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Screen # 2727 


{ bit reversal of vector ) 


> VEIN) 
VEC @ [1] SWAP 
VEC @ [1] SWAP ; 


> XSWAPY 
VEII{J] 
2DUP SWAP >R OR 


Screen # 22 
( bit reversal, cont. )} 


: BIT-REVERSE 
N@ 1 SWAP i DO 
DUP I > IF 
DUF I XSWAPY 
THEN 
N @ 2/ SWAP 
BEGIN 2DUP <¢ 
WHILE 
REPEAT + 
LOOP DROP ; 
a 4 


Screen # 23 
( butterfly calculation 


: BFLY aij 
VETJ{J] 2DUP ROR 
Xe UX@ 18K Xe 
ROT X@ XSWAP X2DUP 
X- ROR X+ RD RD 
DIR & 

IF  XSWAP 

ELSE X2/ XSWAP X2/ 

THEN RX! RD XK! 
--) 


screen # 24 
( 2## and log2 ) 


X@ ROT X@ R> X!' RY XN! G5 


OVER - SWAP 2/ SWAP 


Rae 7 oti Be) 
{ calculate first addr ) 
{ then second addr ) 

aa ere 


( calculate addresses ) 
( Save one copy on ret stack) 
Swap caplx numbers ) 


~~ 


( --- ) 


~~, 


for i={1 to size of vector ) 
Compare indicies ) 
Swap vector entries ) 


— wee 


let incr=points/2 ) 

while incr ¢ indx ) 
indx=indx-incr, incr=iner/2) 
indx=indxtincr ) 

drop indx ) 


onl a ee 


) 


--- ) 


calc actual addresses ) 

fora teap product ) 

prepare stack for + and - ) 
Fi-temp, Fittemp ) 

test for fwd/inv transfore ) 
IFFT, no divide } 

FFT, divide by points ) 
store products } 


Fae ented a 


5 .eke CR a 2nd 
@ MAX WSIZE 8 # i- MIN ( limit input data ) 
1 SWAP 8 ?D0 2* LOOP ; ( DON’T loop if n= ) 
> LO62 n= Jeg2ind 4 
DUP $= ABORT” Can’t take log of zero. * 
8 SWAP { limit one word integer ) 
BEGIN DUP @> test upper bit ) 
WHILE 2 SWAP 1+ SWAP if zero, shift and incr count) 


REPEAT DROP 
WSIZE 8 # 1- SWAP - ; 
--) 


done, drop remainder ) 
return log base 2 of input) 


ee en) 


(Continued on page 48) 
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SOFTWARE FUSION’—s95 


Special Offer 


oa IA TTIC E 


C Compilers 


‘‘My personal preferences are Lattice C in the top category for its 
quick compile and execution times, small incremental code, best 
documentation and consistent reliability; ...”” 

BYTE AUG. 1983 

R. Phraner 


"programs are compiled faster by the Lattice C compiler, and it 
produces programs that run faster than any other C compiler avail- 
able for PC-DOS.”’ 





Batterball, KD 








Dear Mr. Steinbrenner, 

GAME AT_BAT 
This letter is to draw your attention 
ORIOLES (A) to one of our newest prospects, whose rights 
RANGERS (A) were recently acquired by our club in Tusc- 
WH. SOX (H) aloosa. Her name is Karen D. Batterball, i)  ——— 
| CARDINALS(A) we. are agreed that she has great major 
league potential. We would appreciate your 
thoughts on this matter. 









RUTH, BH BATTERBALL,K AARON,H 


APRIL MAY JUNE 






PC MAGAZINE JULY 1983 
H. Hinsch 


“Microsoft chose Lattice C both because of the quality of code 
generated and because Lattice C was designed to work with 
Microsoft's LINK program.” 

PC MAGAZINE OCT. 1983 

D. Clapp 
“lattice is both the most comprehensive and the best documented of 
the compilers. In general it performed best in the benchmark tests.” 

PERSONAL COMPUTER AGE NOV 1983 

F. Wilson 
“This C compiler produces good tight-running programs and pro- 
vides a sound practical alternative to Pascal.” 

SOFTALK AUG 1983 

P. Norton 
“the Lattice compiler is a sophisticated, high-performance pack- 
age that appears to be well-suited for development of major applica- 
tion programs.” 












APX Core Executive allows you to: 

e run up to 8 off-the-shelf programs for the IBM PC 
simultaneously in a multitasking window environment 

e switch between programs with a single keystroke 

e enjoy true concurrent processing 

e move data between windows 
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Fourier Transform Listing (Listing Continued, text begins on page 34) 


Screen # 25 
{ table of cosines and sines for 2##8 to 2##7 ) 


VARIABLE WIAB 8 WTAB ' { du@ay vector entry ) 
4, 16988 , 32, { entries, wsize, scale, data) 
“19808 , 80000 , 98008 , -19808 , 97871 , -87871 4 
69237 , -83827 , 89888 , -81951 , 89952 , -98988 , 
89988 , -89491 , 89997 , -88245 , 

ne 


This is a table of cosines and sines for angles of pi/n where n 
is an integral power of two. The first entry is pi/t, cos is -1 
and sin is #. Next is pi/2, cos is § and sin is 1. Entries up 
to pi/12B currently, but it can be extended for larger FFT’s. 


Screen # 26 
{ inner-loop ) 


: INNER-LOOP { startpt increment --- ) 
DUP 2/ { increrent/2 is bfly offset) 
ROT N @ i+ SWAP { limits are startpt...N ) 
DO =e: 2DUP + { do a butterfly computation ) 
BFLY OVER { between I and Itotfset ) 
+LOOP 2DROP ; { increment loop ) 


ae 
/ 


Screen # 27 
{ fft-kernel ) 


| FFT-KERNEL ( --- ) (N, VEC, gust be set ) 
N @ L062 i+ 1 ( do for i=@ to log2IN] ) 
DO @ 18K U X! ( init U to 1+j8 ) 
1 WIAB X@V { get {/-arglpi/1}) 


DIR @ IF X’ THEN WX! ( take conjugate if IFFT ) 
1 2e# DUP 2/ i+ 1 ( increment and offset counter) 
DO 1 OVER INNER-LOOP { figure inneraost loop ) 
WU 18K Xe! { set new value for angle ) 
LOOP DROP ( drop increment value ) 
LOOP ; 


Screen # 278 
( ft and ifft ) 


: INIT) { vector --- ) 

DUP VEC ! | 

ORDER Nf { initialize size variable) 
: DO-VECTOR { vector --- } 

INIT { initialize size field }) 


BIT-REVERSE 
FFT-KERNEL ; 


( bit swap input ) 
{ perform butterflies ) 


: FFT § DIR ' DO-VECTOR ; 
: IFFT -1 DIR ! DO-VECTOR ; 
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Screen # 29 
( Spare screen ) 


Screen # 3¢ 
{ plotting words for complex vector ) 


VARIABLE HAG 
VARIABLE MIDDLE 
VARIABLE PLOTBUF © 68 ALLOT 


18K MAG ! ( largest value in vector ) 


( buffer for building image ) 


: MAP He | Dessutgie 1 
MIDDLE & - 
35 MAG @ #/ ; ( map into character coord. ) 


--) 


screen # 31 
{ put char into buffer before printing line ) 


: BUF! { char n --- ) 
&9 MIN @ MAX { limit access to buffer ) 
PLOTBUF SWAP ROT FILL ; { store character into buffer) 


: ?BUF! { char n --- ) 
DUP 69 <= OVER B >= AND ( check for out-of-bounds ) 
IF PLOTBUF + C! ( if in bounds, print char ) 
ELSE 2DROP 
THEN ; 

sa 


Screen # 32 
{ plot one line } 


> PLOTDAT 
PLOTBUF 78 BLANK 


8 | Segatog 

{ blank out plotter buffer ) 
ASCII : 6 MAP ?BUF! { "zero" line if in range ) 
ASCII # SWAP MAP BUF! { plot character for data ) 
PLOTBUF 78 -TRAILING TYPE ; { print the plot buffer ) 


Cts 4 
{ print index number ) 
{ and right-hand bar ) 


: PLOTINDX 
2 SPACES 5 .R 
2 SPACES ASCII } EMIT ; 
--) 
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SO MIDDLE ! ( zero position, in char units) 


Screen # 33 Screen # 35 


( plot magnitude for entire vector ) { data for IBM over 1983, by week ) 
: PLOTMAG { vec_desc --- ) 196 64 XVECTOR IBM 
CR DUP &ORDER i+ 1 ( do for each entry in vector) 9663 9913 = 94639738 )=— 9738 = 9838 = 9843 18838 
DO 1 PLOTINDX ( get entry ) 19225 19675 9988 16213 16163 18388 11813 11725 
I OVER Xe@V { get entry ) 11788 §=611763) 11658 = 11863) 11308 | :11488 «11425 12118 
1X PLOTDAT CR ( plot aagnitude value ) 12368 §=12168 12158 12813 12438 12638 11975 11858 
LOOP CR DROP ; { drop vec. descriptor ) 12258 11783 «11975 «12225 «12313 «12663 12688 =: 13225 
13175 12788 §=612888 )§=612225 «12688 = 12358 121868 11788 
n> 12225 12888 12363 12208 98 8 8 ) 
8 § ] § 8 8 6 6 


168 64 IBM VECTOR! 
Screen # 34 


{ load data froe stack ) { This data is the closing price of IBM common stock on Friday 
( 10S is vector descriptor, next is number of points, then ) of each week for 1983. Eights are converted to decimal frac- 
{ scale factor, data points follow ) tions. The data 15 "padded" to 64 elements for the FFT. ) 
: VECTOR! © 
OVER >R ( save nuaber of data points ) .4s 
SWAP OVER ! { reset size of sates ce ene 
SWAP OVER WSIZE 2% + ! ( reset scale of vector entries) 
1 R> DO ( for each vector entry, ) 
SWAP OVER @ ROT 
I 4 ROLL X'V 
-{ +LOOP DROP ; ( work backwards thru vector ) 


--) 






















Come to us for your state-of-the-art FORTH 
needs! Announcing the latest additions to the 
UNIFORTH family: 


Support for major FORTHs and our own products 





16-bit Z8000, 68000, 16032 


* Complete VMS support 32-bit 80186, 68000, 16032 


* Command line qualifiers 

* DEC compatible full screen editor 

x On line HELP facilities 

* Start-up files 

x Switchable log-files 

* System files with precompiled modules 

* Cross compilers available for most microprocessors 


FORTH-83 CROSS-COMPILERS 


x B-tree symbol table of unlimited size 
x Compiles FORTH-83 nucleus 
x Compiles 16 or 32 bit code 






Obtain these stock items captured under tradi- 
tional operating systems, or try our DB16000, 
Slicer and CompuPro stand-alone versions. Com- 
plete compatibility is retained throughout the 
UNIFORTH product line (from the Commodore 64 
to the VAX). 










Features include software floating point, video 
editor, full macro assembler, debugger, decom- 
piler, top-notch documentation, etcetera. Prices 
start at $175. Call or write for our free brochure. 


* Two passes allow automatic pruning of nucleus for 
ROM applications 

% Automatic handling of defining words 

x Targets include 1802, Z8, 8070, 8080, 6801/3, 6502, 
6511Q, 6809, 99xxx, 8086/8, 68000, Z80 






Unified Software Systems 


P.O. Box 2644. New Carrollton. MD 20784. 301/552-9590 


DEC. VAX,PDP,RT-11,RSX-11 (TM) Digital Equipment Corp; CP/M (TM) 
Digital Research; MSDOS (TM) Microsoft; VIC-20 (TM) Commodore. 


MicroProcessor Engineering, 21 Hanley Road, Shirley, 
Southampton, SO1 5AP, England, Tel: 0703 780084 


Die FORTH-Systeme Angelika Flesch, Schuetzenstrasse 3, 
7820 Titisee-Neustadt, West Germany, Tel: 07651 1665 
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Computing 
with Streams 


by L. L. Odette 


How do you work with an infinite list in 
finite storage? You use lazy evaluation, 
one of the concepts the author of this 
theoretical piece explores via Forth words. 
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thing you want with it. One of the things I like to do is 

build word sets to explore programming issues. In this 
article, I'll present Forth words for experiments with data- 
flow-oriented computation, based on a data structure called 
a stream. 

Much current interest centers on data-flow programs and 
machine organizations because of the advantages to be 
gained from concentrating more on the flow of data in a 
computation than on the sequence of steps.!:2 The advan- 
tages include a nicer mathematical structure for the pro- 
gram, increased program modularity, and a program organi- 
zation that facilitates use of parallelism. Besides any other 
advantages, organizing a program in terms of data flow can 
be a natural way to solve a problem that can be expressed in 
signal processing terms. 

One way to make the data-flow organization of a compu- 
tation concrete is to implement a data structure called a 
stream. Think of a stream as a list—nothing more than a 
sequence of data objects representing the data flow during a 
computation. The computation is organized as a composition 
of processes that take streams as input and produce other 
streams as output. 

The mathematical niceties of stream processing arise from 
the lack of variables and associated concepts of “state.” 
Computations organized about objects with coupled state 
variables (von Neumann style?) are difficult to make modu- 
lar and are susceptible to bugs due to side effects of steps in 
the computation. All that happens in a pure stream compu- 
tation is that one stream becomes some other stream, so you 
program in a functional programming style. Pure functional 
programming prohibits anything that changes the values of 
variables; it thereby deals with side effects by ruling them 
out altogether. Functional programming has been promoted 
as an alternative to von Neumann-style programming}, 

Stream computations can also be highly modular. This is 
because most of the processing procedures can be abstracted 
to a small number of higher-order procedures. For example, 
there are stream fi/ters, that remove objects from the stream 
if they satisfy a given condition. There are stream maps that 
apply a given function to each object in the stream. There 
are also stream accumulate operations that combine stream 
objects using some procedure. Programming with streams is 
largely a matter of designing the proper composition of fil- 
ters, maps, and accumulations. 

Parallelism can be exploited because processes communi- 
cate only through the streams. There is no shared memory, 
and each reference to the stream is identical, so processes 
that are computationally parallel could be executed by dif- 
ferent machines. 

My goal is to illustrate how stream processing can be im- 
plemented in Forth, to provide a starting point for those who 
might experiment with these ideas. The implementation in- 
troduces other interesting topics, such as delayed evaluation 
and demand-driven program execution, which are also part 
of current computing research areas'. 


T he attraction of Forth is that you can do almost any- 





L.L. Odette, Boston University, College of Engineering, 110 
Cummington St., Boston, MA 02215. 
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Streams in Forth 

So, how can streams be implemented in Forth? Well, the 
straightforward implementation of streams as lists would not 
allow the full exploitation of the power of stream processing. 
If implemented properly, stream processing techniques allow 
us to model communicating sequential processes, implement 
mutual recursion, and process potentially infinite lists (as long 
as we process only finite parts of those lists). 

If we are going to process an infinite list, the list can’t be 
computed before it is processed, and some form of delayed 
evaluation is necessary. Delayed evaluation in the Forth con- 
text means that the inner interpreter is redirected so that a 
Forth word executes a little and is then delayed while other 
Forth words execute. Program execution proceeds as a quasi- 
parallel interweaving of words—a natural interpretation of 
mutually recursive definitions. 

Demand-driven execution is associated with delayed eval- 
uation, because the delayed part of a word must be explicitly 
forced to execute. The only way a result is produced during 
the computation is by constantly forcing execution of de- 
layed words—a mode of execution sometimes called lazy 
evaluation. Demand-driven execution occurs when instruc- 
tions are executed only when the result they produce is need- 
ed by another, already selected instruction. 

These, then, are the basic ingredients for data-flow pro- 
cessing: a data structure representing the flow of data ina 
computation, delayed evaluation to suspend computations 
that produce the elements, and demand-driven execution to 
force data to be made available when required. 

Before discussing the details of the Forth implementation, 
I’ll set the stage with some basic operations and stream process- 
ing examples, introducing some useful notation in the process. 





















Basic Operations and Notation 


Constructors and Selectors 

There is a single primitive process that is needed to build 
streams: the stream constructor. The stream constructor will 
be represented by a triangle symbol, as follows: 


h 
> 

t 
This symbol represents the process of constructing a 
stream s by taking a data object A and tacking it onto the 
beginning of the sequence of data objects ¢. Because streams 
represent sequences of elements, h is the head (first element) 
of the new sequence s, and f is the tail (rest) of the sequence. 
The data flow direction is indicated by arrows; this allows 
the triangle symbol to do double duty as a representation 


both of the inverse of the constructor, the stream selector. 
The representation of the selector is 


oi 

t 

Note again that the direction of the arrows indicates the 
direction of data flow. The selector operator takes a stream s 
and makes available the head of the stream A and the tail of 


the stream ¢. In my Forth implementation of stream process- 
es I define the selector words HEAD and TAIL, which expect 
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a stream on the stack, and then leave the head and the tail of 
the stream, respectively. 

It is important to note that while a stream represents a list, 
the only way to access elements in the list is to build a com- 
position of TAIL operations followed by HEAD. For exam- 
ple, the fourth element of a stream is obtained by 


TAIL TAIL TAIL HEAD 


The first TAIL takes a stream and leaves a new stream whose 
head is the second element of the original stream. The next 
TAIL leaves a stream whose head is the third element of the 
original stream. The final TAIL leaves a stream whose head 
is the fourth element of the original stream and is selected by 
HEAD. 

The selectors and constructors are the only primitive opera- 
tors on streams. You build higher-order stream processes 
from them by adding operations on the data elements of the 
stream. Filters, maps, and accumulations are some of the 
more common higher-order processes for operating on 
streams and demonstrate the high level of abstraction possible 
in stream processing. 


Filters, Maps and Accumulations 

One common stream process is the filter. A filter just takes a 
stream and returns a new stream by removing from the input 
stream all the elements satisfying a specified condition. For 
example, supposing that the word ?ODD tests a number for 
oddness and returns a flag indicating the result of the test, 
then the following represents a process that filters out the 
odd elements of an input stream of numbers. 





In the process above, the selector picks out the head of the 
input stream and 2ODD tests it; then it is passed through to 
the output if it is even. The tail of the input stream is fed back 
and the process repeats, selecting the head of the tail, testing 
for oddness, feeding back the tail of the tail, and so on. 

Filters are common elements in data-flow computations; 
this suggests that an abstraction of the filter above to a ge- 
neric filter would be useful in designing programs. To build a 
particular filter from the generic filter, you must combine a 
predicate (filter word) with the generic filter process. Forth 
filter definitions would be of the form: 


: name predicate FILTER ; 


where name is the name given to the filter, and predicate 
represents any word that applies a test to the head of the input 
stream (leaving true or false on the parameter stack as does 
the word 2?0DD, above). FILTER is the generic filter word, 
perhaps implemented as an immediate word that sets up a 
filter at compile time, using the code address compiled for 
predicate. At runtime the particular filter word expects an 
input stream on the stack and produces an output stream, 
filtered as specified by predicate. 

A process somewhat similar to a filter is a map, a term that 
takes its name from LISP. What a map does is apply a func- 
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tion to each element of a stream to produce a new stream. 
Using the triangle notation, a map process looks like this: 





As in the filter process, the selector obtains the head of the 
input stream sj and then feeds back the tail. The function 
FUNC is applied to each element of the input stream to pro- 
duce the output stream sg. For example, if the function were 
one that doubled each element, an input stream 1, PA i Se Re 
would be transformed to the output stream 2,4,6,8,.... 
Like filters, maps can be abstracted to an operation combin- 
ing a function and a generic map. Forth definitions for partic- 
ular maps would be of the form 


: name function MAP; 


where name is the name of the MAP process and function 
represents the function word to be applied to each element in 
the input stream in order to produce the output stream. MAP 
is the generic map process. 

A somewhat more complicated stream process is an accu- 
mulation. An accumulate process builds an output stream 
by applying a binary operator to successive elements of the 
input and output sequences and accumulating the results. 
Specification of an accumulate process requires the accumu- 
late operator and an initial condition. The head of the output 
stream is given by the initial condition. The output stream is 
then fed back to be combined, via the specified operator, 
with the input stream. The results form the tail of the output 
stream So. 

For example, an accumulate based on the + operator 
would return a stream of partial sums if given a stream of 
numbers. The partial sum process, based on + with initial 
condition 0, is shown in Figure | (at right). The constructor 
Element A forms the output stream, starting with 0. Selector 
Element B picks out elements of the input integer stream in 
sequence, and Selector C picks out sequential elements of the 
output stream. Passing the selected elements through + pro- 
vides the tail for Constructor A by adding elements of the 
input sequence to corresponding elements of the partial sum 
sequence. 

Filters, maps, and accumulations are some of the basic 
building blocks for organizing data-flow computations, and 
using them makes it relatively easy to understand what a 
stream processing program is supposed to do. There are sug- 
gestions that a data-flow analysis of any computation may be 
couched largely in terms of these operations, as Waters’> anal- 
ysis of the Fortran programs in the IBM Scientific Subroutine 
Package showed that nearly 60% of the code fit a stream 
processing description involving filters, maps, and 
accumulations. 


A Prime Example 

For a more complicated program involving streams, consider 
how stream processing operations might be used to construct 
a list of all prime numbers. One way to generate the primes is 
to implement a network for the prime sieve of Eratosthenes 
and then feed it the sequence of integers starting with the 
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integer 2. The output is the sequence of primes. 

The sieve of Eratosthenes can be described in data-flow 

terms as follows: 

1) The head of the input stream is prime. Call it P. 

2) Filter all multiples of P from the tail of the input stream. 
3) Feed the filtered stream back to (1). 

The sequence of P’s generated in step | is the sequence of 
prime numbers, starting with the prime number 2. Part 2 of 
the sieve description is a stream filter that is slightly differ- 
ent from the filter described earlier in that it takes an input 
number P as a parameter and then uses DIVISIBLE-BY-P as 
the filter predicate. The DIVISIBLE-BY-P filter removes all 
integers that are divisible by the integer P from the input 
stream. Using a filter of this sort, the stream processor im- 
plementing steps 1 through 3 (the sieve) is shown in Figure 2 
(below). 

The sieve works as follows. In the stream processor dia- 
grammed in Figure 2, the input stream is a sequence of inte- 
gers 2, 3,4,.... The selector removes the head of the input 
stream and sends it to the constructor, so that the head of the 
input stream becomes the head of the output stream. Thus 2 
is the first prime generated by the sieve. This is step 1 in the 
description above. The selector also sends the head and tail 
of the input stream to the DIVISIBLE-BY filter. The head of 
the input stream is the input parameter to DIVISIBLE-BY, so 
that DIVISIBLE-BY produces the stream Ss 5:15 9 TAS: 

I5,...—1Le., the tail of the input stream with all multiples 
of 2 removed. This is step 2 in the description above. In step 
3, the output of DIVISIBLE-BY is passed through a prime 
sieve process to produce the tail of the output stream. 

The prime sieve that DIVISIBLE-BY feeds processes the 
Stream 3,5, 7,9, 11, 13, 15,... as per the sieve description: 
the head of the input stream becomes the head of the output 
stream. Thus 3 is the second prime generated by the sieve. 
DIVISIBLE-BY removes all multiples of 3 from the tail of the 
input stream to produce the stream 5, Vos 2 vey SP) ee 
i.¢., the stream 2,3: 4,5, ... with all multiples of 2 and 3 
removed. The stream 5,7,11,13,17,... is then passed 
through a sieve to produce the tail of the output stream. 





Figure 1 









h h 
om} 
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Figure 2 
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GGM — FORTH™ has HELP* 
for Z80' using CP/M? 





C64-FORTH/79 


New and Improved 
for the Commodore 64 


C64-Forth/79™ for the Commodore 64-$99.95 

¢ New and improved FORTH-79 implementation with 
extensions. 

e Extension package including lines, circles, scaling, 
windowing, mixed high res-character graphics and sprite 
graphics. 

e Fully compatible floating point package including 
arithmetic, relational, logical and transcendental functions. 

e String extensions including LEFT$, RIGHTS, and MIDS§. 

e Full feature screen editor and macro assembler. 

© Compatible with VIC peripherals including disks, data set, 
modem, printer and cartridge. 

e Expanded 167 page manual with examples and application 
screens. 

e “SAVE TURNKEY” normally allows application program 
distribution without licensing or royalties. 






























___ | GGM—FORTH, a complete software system for) 
| real-time measurement and control, runs on any | 

Z80 computer under CP/M using an extended fig- 
FORTH vocabulary. 


GGM—FORTH features: 
¢ Open multiple CP/M files, in any combination | | 
of direct-access and sequential-access, fully| 
compatible with all CP/M utilities — 


e Char. in/out uses CP/M console, lister, file, or 
port 


e On-line HELP* provides instant access to defi- 
nitions in the run-time GGM—FORTH dic- 
tionary 


e HELP* file is easily extended to include user 
definitions using HELP* utility 


e HELP* is available during full-screen editing 


































(Commodore 64 is a trademark of Commodore) 


TO ORDER 
-Disk only. 
-Check, money order, bank card, COD’s add $1.65 
-Add $4.00 postage and handling in USA and Canada 
-Mass. orders add 5% sales tax 
-Foreign orders add 20% shipping and handling 
-Dealer inquiries welcome 










Complete system and manuals = $150. 






















Manuals only: $ 20. 

PERFORMANCE MICRO PRODUCTS Introductory System: $ 35. 
770Dedham Street qa GGM SYSTEMS, INC. (617) 662-0550 
ee ae 135 Summer Ave., Reading, MA 01867 





'Z80 is a trademark of Zilog, Inc. 
2CP/M is a trademark of Digital Research, Inc. 






Circle no. 55 on reader service card. Circle no. 27 on reader service card. 
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PERFORMANCE 
snc] PORTABILITY 
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ac an UNBEATABLE 
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c-tree"™ 
BY FAIRCOM 








2606 Johnson Drive 
Columbia MO 65203 
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the professional’s replacement 
for Microsoft L80 








LYNX™ DOES 
EVERYTHING L80™ DOES AND MORE! 









LYNX™ LETS YOU USE ALL AVAILABLE MEMORY. 






You can create COM files that are 10K larger— 
without overlays—by replacing L80 with LYNX. 






LYNX™ IS A FULL OVERLAY LINKER 







Running twice as fast as its nearest competitor, 
LYNX is tree structured, multi-segmented and multi- 
leveled, with automatic or explicit overlay invoca- 
tion. You can run programs that are larger than avail- 
able memory. 










LYNX™ HAS BEEN HELPING MICROSOFT FOR- 
TRAN PROGRAMMERS FOR YEARS—NOwW IT IS 
ALSO AVAILABLE FOR MICROSOFT BASIC AND 
AZTEC C.™ 










LYNX™ IS A QUALITY PRODUCT from the same 
company who offers you: 









¢ GrafTalk, the business graphics package for 
Micros 


¢ GRAPHICS development tools 
¢ 2780/3780, 3270, X.25 communications 
¢ MICRO TO MICRO communications 


ce REDDING@GROUP INC. 


609 Main Street 
Ridgefield, CT 06877 
1-800-HELP RGI (203) 431-4661 
$250 Telex. 643351 


LYNX and GrafTalk are trademarks of Redding Group, Inc. L80 is a trademark of 
Microsoft. AZTEC C is a trademark of MANX Software Systems. 
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What is unusual about this network is that it contains a 
copy of itself. The input represents an infinite sequence of 
integers, as the output stream of primes also represents an 
infinite sequence, and this means that the above represents a 
program that is infinitely long. In implementations employ- 
ing demand-driven execution, only as much of the stream as 
is necessary (demanded as output) is ever computed, and so 
only as much of the program as is needed exists. During 
execution, the program in effect builds itself and builds only 
as much as is required. 


The Forth Implementation 

The key to a useful implementation of streams and stream 
processing words is to delay computing anything until the 
result is needed by some other computation. This is demand- 
driven computation. To support this mode of execution, the 
data structure representing a stream will be considered as 
consisting of a recipe for computing the head and tail of the 
stream together with the ingredients required by the compu- 
tation. In Forth, a stream on the stack will consist of n stack 
entries with the structure: 


(n—2 elements), pointer, n... 


The top stack entry (7) indicates the total number of stack 
entries comprising the stream. The count is needed in order 
to manipulate these objects (i.e., we can expect to need 
words such as STREAM-SWAP, STREAM-DROP, and so 
on). The next component of the stream is a pointer to the 
recipe for computing the stream head or tail. The final n —2 
stack entries comprise the basic ingredients used in the 
recipe. 

The suggested implementation of Forth stream constructor 
words is given in screen 219 (page 58). The constructors are 
IMMEDIATE words and can only be used in COLON defini- 
tions. They have the form: 


MAKE-HEAD (head recipe) 
MAKE-TAIL (tail recipe) 
END STREAM 


where (head recipe), (tail recipe) represent sets of Forth 
words that take the ingredients and compute the head and 
tail, respectively. 

At compile time, MAKE-HEAD (head recipe) MAKE- 
TAIL (tail recipe) END-STREAM is expanded to. 


| / 
LIT|_|SWAP BRANCH |_| IF(head recipe) ELSE(tail recipe) 
THEN TEXTES... 
| f 


At runtime, MAKE-HEAD expects the parameter stack to 
contain the stream length and ingredients. The full stream is 
then constructed by putting a pointer to the IF clause on the 
stack and performing a SWAP. BRANCH delays any compu- 
tation by transferring control beyond the IF clause. Note that 
the only effect MAKE-HEAD... MAKE-TAIL...END- 
STREAM has at this time is to construct a stream from the 
data on the stack. Execution of the recipes in the body of the 
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construct is delayed until they are needed to process the 


stream. 


The recipes are forced to execute by the selector words 


HEAD and TAIL. These are implemented as 


‘HEAD DROP >R1; 
‘TAIL DROP >RO; 


At runtime they take a stream on the stack, transfer the 
pointer to the IF (head recipe) ELSE (tail recipe) THEN 
clause from the parameter stack to the return stack and 
leave a 1 or O on the parameter stack. Control is thereby 
transferred to the appropriate part of the recipe. When the 
recipe is complete, control is transferred back to the word 
following the HEAD or TAIL selector. 

A simple example of the use of the stream constructor is 
provided by the word INTEGERS-FROM, which takes an 
unsigned integer on the stack and leaves a stream represent- 
ing all the integers greater than or equal to the input integer. 
You can then access elements of this (infinite!) list using 
HEAD and TAIL. INTEGERS-FROM is defined as 


: INTEGERS-FROM 3 MAKE-HEAD 
MAKE-TAIL | + MYSELF 
END-STREAM ; 


where MYSELF is Levan’s® recursion word. 

When executed, INTEGERS-FROM leaves a three-ele- 
ment data structure on the stack—the top element being the 
count, the next element a pointer, and the third element the 
starting integer. The recipe for computing the head of the 
stream is NOP, because the head of the sequence is all that is 
left on the stack by HEAD. The recipe for computing the tail 
is to take the head of the sequence, add one, and then form a 
new stream by executing INTEGERS-FROM. 

INTEGERS-FROM represents an infinite sequence in the 
usual mathematical sense that we never run out of elements 
of the sequence. The finite word size of stack entries (say, 16 
bits) means that in practice INTEGERS-FROM repeats itself 
every 2! elements, so that, as defined above, it is more accu- 
rate to say that INTEGERS-FROM is a representation of all 
integers greater than or equal to the input integer, MOD 2'8, 

(MAKE-HEAD(head recipe) MAKE-TAIL(tail recipe ) 
END-STREAM), HEAD and TAIL are the basic stream con- 
structor and selector words. Implementations of stream fil- 
ters, maps, and accumulations are given in screens 223 — 225 
(pages 60 — 61). Other words useful for stream manipulation 
are given in screens 220 — 222 (pages 58 — 60). 


Yet Another Forth Prime Sieve 

The sieve of Eratosthenes, implemented with Forth stream 
processing words, is given in screen 226 (page 61). The basic 
element of the sieve is DIVISIBLE-BY, a stream filter that 
removes stream elements that are divisible by some number. 
DIVISIBLE-BY expects a number and a stream on the stack, 
filters the stream, and then packages the result in a new 
stream. The recipe for computing the head of the filtered 
stream is to drop the top stack entry (the divisor) and exe- 
cute HEAD. The recipe for computing the tail is 
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>R TAIL R> MYSELF 


that is, save the divisor, find the tail of the input stream, and 
filter the tail with DIVISIBLE-BY. 

SIEVE processes the input stream according to the follow- 
ing recipes: The head of the output stream is the head of the 
input stream. The tail of the output stream is found by first 
filtering the tail of the input stream through DIVISIBLE-BY, 
using the head of the input stream as the divisor. This fil- 
tered stream is then passed through a copy of SIEVE. The 
recipes follow the three steps in the description of the sieve of 
Eratosthenes given earlier. 

Finding the nth prime is straightforward: 


- PRIMES 2 INTEGERS-FROM SIEVE ; 
(make a stream of all primes) 

: SELECT 0 DO TAIL LOOP HEAD. ; 
(select an element of a stream) 

PRIMES 10 SELECT. 
(select the 10th prime) 


There are several noteworthy things about this program. In 
a sense, the program works back from the request to get the 
tenth prime, using as much memory as is necessary to com- 
pute what has been requested. The larger the prime requested, 
the greater the memory requirements for the computation. 

Because the stream is on the stack, the available stack 
space imposes a practical limit on how many primes can be 
computed via this implementation of the sieve. For example, 
after 25 primes have been computed, the tail of the output 
stream is 80 stack elements, representing the input stream 
2, 3, 4,... with all multiples of the first 25 primes removed. 
The 80 stack elements, starting from the stack bottom, are 
three elements specifying the original stream (INTEGERS- 
FROM), three elements for each invocation of DIVISIBLE- 
BY (count, recipe pointer, and division) and two elements of 
the sieve stream header (count, recipe pointer). 

Note also the mutual recursion implicit in the fact that 
DIVISIBLE-BY processes streams that are constructed by 
SIEVE, while SIEVE processes streams constructed by 
DIVISIBLE-BY. 


A Final Example 
Writing programs to experiment with new ways of writing 
programs could be called metaprogramming. I’ve presented 
these Forth words for stream processing as an exercise_in me- 
taprogramming, hoping that those who like to experiment in 
Forth will improve and extend them and that those who solve 
practical problems with Forth may recognize where similar 
techniques could be useful in their own programming tasks. 
For an application of stream processing on the practical 
side, I tried designing Forth words to implement a Forth 
interpreter (screens 227 — 236, page 61 — 67). The program- 
ming issues in this task involve deciding how the problem 
should be posed to fit the data-flow model and choosing a 
structure for the data. I chose to make the output a stream of 
environments, each environment consisting of a representa- 
tion of the parameter and return stacks, plus a pointer into 
the parameter field of the word being interpreted. The input 
is an initial value for the environment stream, specifying the 
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contents of data and return stacks and where to start the 
interpreter. Environment formats are discussed in the legend 
to Figure 3 (page 56), which illustrates the data-flow struc- 
ture of the program using triangle notation. 

The program is built from three maps and an accumula- 
tion. The maps, with their input and output streams, are 


MAP INPUT-STREAM OUTPUT-STREAM 

PNTR_ Environments Parameter field addresses 

@ Parameter field Contents of parameter field 
addresses addresses(code field addresses) 

RET Code field addresses Modified code field addresses 


The result of applying these three maps in sequence is a 
three-step process. The first step takes an environment and 
drops the stack representations, leaving the parameter field 
pointer (PNTR). Next, the content of that address is ob- 
tained (@), yielding a code field address. The stream of code 
field addresses is then mapped to a modified set of code field 
addesses (RET) according to the following rule: If the do- 
main word (input to RET) affects the inner interpreter in- 
struction register (LIT, BRANCH, OBRANCH, etc.) or modi- 
fies the return stack (<DO>, <LOOP>, etc.), then the 


image of the map is the code address of a word that has an 
effect on the environment data object that is congruent to 
the effect of the domain word on the instruction register or 
return stack. Otherwise, the image code address is identical 
to the input code address. Screens 229 and 230 contain code 
for image words of some, but not all, of the words that alter 
the instruction register or return stack. 

The resulting stream of code addresses is fed to an accu- 
mulation based on a modified EXECUTE operation. 

The result is a program that you can use to single-step 
through a colon definition, displaying the instruction pointer 
and the contents of the data and return stacks. Lines 9 — 10 
and 13 — 14 of screen 236 show how to prepare a stream to 
do this. The word STEPS defined in screen 236 expects two 
environment streams on the parameter stack and will single- 
step through the two colon definitions in parallel. Extension 
to n > 2 words in parallel is left as an exercise. You may 
wish to experiment with parallel execution of words that 
communicate through some shared variable. Other worth- 
while exercises include translating the words of screens 
220 — 221 to machine code. This will significantly increase 
speed. 

The point of this example is simply that a certain concep- 
tual clarity results from organizing a program so that the 
data-flow structure of the problem is manifest in the proce- 
dures. The description of the operation of the interpreter as 
I’ve given it—a sequence of parameter field addresses is gen- 


erated, the contents of parameter field addresses are used to 
| generate a sequence of code field addresses, and the se- 


| quence of code field addresses are executed—has parts that 


. _ | are clearly separable and identifiable in the stream imple- 
s | mentation. It follows that the network representation of the 


data flow given in Figure 3 leads fairly directly toa program. 
Metaprogramming involves thinking about how direct the 
transformation is and how useful the result. 
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REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 


eMALL. ar FOR IBM-PC 


~ Small-C Compiler Version 
2.1 for PC-DOS/MS-DOS 
~ Source Code included 

_ for Compiler & Library 
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A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and I/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M" 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO Seattle, Washington 98125 
6032 Chariton Ave., Los Angeles, CA. 90056 | = (206) 367-1803 
(213) 649-3575 | ASMorMASM is required with compiler. 


include disk size (160k/320k), and DOS version with order. 

VISA & MasterCard accepted. Include card no. & expiration date. 
Washington state residents include 7.9% sales tax. 

IBM-PC & PC-DOS are trademarks of international Business Machines 
MS-DOS is a trademark of Microsoft Corporation. 





{BUG SOURCE LEVEL DEBUGGER FOR SMALL C 


Break, Trace, and Change 

- variables all on the 
source level 

Source code included 
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11557 8th Ave. N.E. 








*CP/M is a Trademark of Digital Resaerch, Inc. 
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Don't just put your applications in windows—put windows in your 
applications with VSI-the window manager. 

VSI is a high-speed screen management tool. You can create up to 255 
simultaneously active overlapping windows—large or small—for any 
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; : ae application program. Read to or write from any window and display them 
| DIRECTORY B: P P OGRE i : 
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) SELECT MASTER FILE | BASTEST 5128 9-15-83 piled language and supports all color and monochrome video attributes. 
S11) CUST EST 5128 11-67-83 
2) PROD PROD SELECT ACTION EST 12632 11-67-83 : . 
| S) S¥ST|3) VEND|1) ADD NEW RECORD EST 4992 11-67-83 Cut Development Time | ie 
——e VSI's powerful primitives simplify your screen management chores 
| LL feat edd with a complete library of functions. And you can preview and edit your 
era pte tah Aap screen layout before you actually program it. 
; : Inerted Tweaker B ; : . 
! ut that’s only the beginning. 
| cost: 19.23 QUANTITY OM HAND: 16265 
. PRICE: 62.58 REORDER POINT: 2668 Free Demo Disk 
Use the up and down arrow}PRODUCT DESCRIPTION: Reverse metaf lange for Our free hands-on demo disk will have you doing windows, too. 

4 De, tugs, the wenber) £68) VOUE nett ise\ 9 are cians Return the coupon with $4.50 for postage and handling. 
: Press <ENTER> to select t : h h d | 
! Press (ESC) to exit from this menu. MasterCard or Visa accepted with phone orders only. 


| Pyne Cori be thie ith Aube anon entero sas [ve 3942 VSI is used with IBM PC, XT and compatibles as well as TI 
| 3 Professional, and Wang PC. 





= develop software for 8086/8088 based machines and I want to do windows, too. 








| I'm enclosing $4.50 for postage and handling. Please send me your free demo | 
disk. My business card is attached. (Offer expires December 31, 1984) 

| | Computer;_____ | 
AMBER SYSTEMS, INC. | ae | 
. 1171 S. Sunnyvale-Saratoga Road g sR SVE i AE OTE Pe AR RIE A 
| San Jose CA 95129 | Company | 
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Streams Listing (text begins on page 50) 


SCR #219 
Ost Lab. Odette 6-6-84 MVP-FORTH ) 
1 \ Stream Constructor and Selector Words 
2 
3 MAKE-HEAD 
4 HERE 10 + [COMPILE] LITERAL \ Compile IF clause address 
5 COMPILE SWAP 
6 COMPILE BRANCH HERE 0 , 2 \ Delay is branch around IF 
7 [COMPILE] IF ; IMMEDIATE \ Rest looks like IF 
8 
9 : MAKE-TAIL [COMPILE] ELSE ; IMMEDIATE 
10 
11 : END-STREAM [COMPILE] THEN \ Terminate If..Else.. Then 
12 COMPILE EXIT [COMPILE] THEN ; \ Terminate delaying branch 
13 IMMEDIATE 
14 
15 : HEAD DROP >R 1 : : TAIL DROP >R O ; 
SCR #220 
Othe. Odette 6-6-84 MVP-FORTH ) 
1 
2.) MYSELF LATEST PFA CFA , ; IMMEDIATE 
5 
4 \ Misc. Stream manipulation words. Each Stream is in the forn: 
ane, 4 (n-2 elements) ,pointer,n... 
6 \ where the count (n) is on the top of the parameter stack. . 
7 \ *** Translation to machine code is recommended *** 
8 
9 : STREAM-DUP DUP 1+ DUP 1 DO DUP PICK SWAP LOOP DROP ; 
10 
big | STREAM-OVER DUP DUP 2+ PICK SWAP OVER + 1+ SWAP 
V2 0 DO DUP PICK SWAP LOOP DROP ; 
3 
14 : STREAM-SWAP DUP DUP 2+ PICK SWAP OVER + 1+ SWAP 
5 0 DO DUP ROLL SWAP LOOP DROP : 
SCR’ #221 
O°-( Lo odette 6-6-84 MVP-FORTH ) 
1 
2 \ More misc. Stream manipulation words 
3 
4 STREAM-DROP DUP 0 DO DROP LOOP ; 
5 
6 STREAM->R R> OVER DUP 
- BEGIN 4 ROLL >R l- DUP O= UNTIL 
8 DROP >R DR ; 
9 
10 : STREAM-R> = R>d R> 
at BEGIN R> SWAP 1- DUP O= UNTIL DROP 
LZ DUP I+ ROLL: >R; 
13 
14 
LS 
OK 
(Continued on page 60) 
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The one and only adult Lisp system for CP/M users. 












ope I TR py bk Waltz Lisp is a very powerful and complete implementa- 
Rote: tion of the Lisp programming language. It includes 

_ features previously available only in large Lisp systems. In 
E fact, Waltz is substantially compatible with Franz (the Lisp 
~ running under Unix), and is similar to MacLisp. Waltz is 
, perfect for Artificial Intelligence programming. It is also 

- most suitable for general applications. 


a 











B Much faster than other microcomputer Lisps. ° Long integers (up to 611 digits). Selectable radix * True dynamic 
character strings. Full string operations including fast matching/extraction. ® Flexibly implemented random file access. 
© Binary files. ¢ Standard CP/M devices. * Access to disk directories. ¢ Functions of type lambda (expr), nlambda 
(fexpr), lexpr, macro. Splicing and non-splicing character macros. ¢ User control over all aspects of the interpreter. 
e Built-in prettyprinting and formatting facilities. ¢ Complete set of error handling and debugging functions including 
user programmable processing of undefined function references. @ Virtual function definitions. © Optional automatic 
loading of initialization file. * Powerful CP/M command line parsing. * Fast sorting/merging using user defined 
comparison predicates. © Full suite of mapping functions, iterators, etc. * Assembly language interface. ¢ Over 250 
functions in total. ¢ The best documentation ever produced for a micro Lisp (300+ full size pages, hundreds of 
illustrative examples). 


Waltz Lisp requires CP/M 2.2, Z80 and 48K RAM (more recommended). All common 5" 
and 8"' disk formats available. 


si ee “169° 


written in Waltz Lisp.) 






















RO ODE *Manual only: $30 (refundable with order). All 

_ foreign orders: add $5 for surface mail, $20 for 
ee airmail. COD add $3. Apple CP/M and hard sector 
15930 SW Colony PE: formats add $15. 


Portland, OR 97224 
anne Call free 1 -800-LIP-4000 Dept. #11 


Unix’ Bell Laboratories. 


CP/M* Digital Research Corp. In Oregon and outside USA call 1-503-684-3000 
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The Cost Efficient 
EPROM 


Programmer 
$995.00 
COMPLETE 
Dealer inquiries welcome. 
DISPLAY: FUNCTIONS: GENERAL: wa aaa ie 
e Bright 1” high display system ° Fast and standard programming © Stand alone operation, external 
e Progress indicated during algorithms terminal not needed for full 
programming e Single key commands command set 
e Error messages e Search finds data strings up e Total support 
to 256 bytes long e 28 pin sockets 
KEYBOARD: e Electronic signatures for easy e Faulty EPROMS indicated at 
e Full travel entry keys data error |.D. socket 
e Auto repeat e “FF” skipping for max program- e Programs 1 to 128K devices 
e Illuminated function indicators ming speed e Built in diagnostics 
e User sets memory boundaries e No calibration required 

INTERFACE: e 15 commands including move, e No personality modules to buy 
e RS-232C for data transfer edit, fill, search, etc. functions e Programs new CMOS EPROMS 
e 110-19.2K baud e Extended mode reads EPROM e Printer interface option 
e X-on X-off control of serial data sets e¢ Complete with 128K buffer 
ALSO AVAILABLE FROM SCC: 


The Cost Efficient Erasing Units 
FIVE TIMES THE CAPACITY OF OTHER UNITS, FOR LESS THAN $200! 


FEATURES INCLUDE: Three Models Available: 
EU-156...over 150 chips 


e Unique wave design e Affordable and economical 

e Efficient bulb design e Portable, easy to use $1 9 5 00 

e All-steel, heavy duty design e EPROMS é 

e Quick erasure time e Micro computer EU-312...over 300 chips 

e Efficient e Industrial design 

e Reliable e Production environment ready $359.95 

e Safe e Timer included EU-1050...over 1000 chips 
(EPROM or Micro Computer) 

CALL! 


QUICK DELIVERY ON ALL PRODUCTS! 
FOR FURTHER INFORMATION ON SCC8 COST EFFICIENT PROGRAMMERS AND ERASING UNITS CALL 


SOUTHERN COMPUTER CORPORATION 


3720 N. Stratford Rd., Atlanta, GA 30342, 404-231-5363 
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The fastest 
8088 € Compiler 
available 


FULL DEVELOPMENT PACKAGE 
- C Compiler 
* Assembler 
* Linker and Librarian 
- Full-Screen Editor 
- Newsletter for bugs/updates 


SYMBOLIC DEBUGGER 

* Monitor and change variables by 
name using C expressions 

* Multi-Screen support for debugging 
PC graphics and interactive systems 

- Optionally display C source during 
execution 

* Breakpoint by Function and Line # 


COMPLETE IMPLEMENTATION 
* Both 1.0 and 2.0 DOS support 
= Everything in K&R (incl. STDIO) 
* Intel assembler mnemonics 
- Both 8087 and Software Floating Point 


OUTSTANDING PERFORMANCE 
Sieve Benchmark 
COMPILE 4 Sec. RAM — 
22 Sec FDISK 
LINK 6 Sec. RAM — 
34 Sec. FDISK 
RUN 12 Sec. 
SIZE 8192 bytes 































































































DeSmet C 
Development Package 






$159 


To Order Specify: 
Machine 


0S O MS-DOS O CP/M-86 
Disk O 8’ 0O5%SS 05% DS 


WARE 


CORPORATION 
















P.O. BOX 710097 
San Jose, CA 95171-0097 
(408) 736-6905 


California residents add sales tax. Shipping: U.S. no 
charge, Canada add $5, elsewhere add $15. Checks 
must be on a US Bank and in US Dollars. 
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Streams Listing (Listing Continued, text begins on page 58) 


SCR 


WOMAN HAO BPWNHE © 


OONHDU PSP WNHEF © 


bY 
HO 


_ 
NO 


a 
U1 is WW 


op) 
Q 
ve) 


bb bY 
NHFOW DIAM PRWNHEHO 


WW 


bY js 
Cm 


SCR 


60 


0 
. 


#222 

(i. G. Odette 6-6-84 MVP-FORTH ) 

( Useful stream manipulations ) 

: SPLIT STREAM-DUP TAIL STREAM-SWAP HEAD : 

: DELAY-ADDR HERE 24 + [COMPILE] LITERAL ; IMMEDIATE 

\ Represents stream tail, calculation delayed once 

: DELAY-TAIL 

OVER DELAY-ADDR - \ Don't delay twice 
IF DUP 2+ MAKE-HEAD TAIL HEAD 
MAKE-TAIL TAIL TAIL END-STREAM 
ELSE DDROP TAIL MYSELF THEN ; 

: DELAY-SPLIT STREAM-DUP DELAY-TAIL STREAM-SWAP HEAD : 

#223 

(Lb, £.: Odette 6-6-84 MVP-FORTH ) 

: <FILTER> ( Stream,Predicate-address . .. Stream ) 

>R BEGIN \ Save predicate and loop 
STREAM-DUP HEAD R@ EXECUTE \ Test head 
WHILE TAIL REPEAT \ Filter tail while true 
R> OVER 3 + \ Recover predicate 
MAKE-HEAD DROP HEAD \ Compute first element 
MAKE- TAIL >R TAIL R> MYSELF \ Compute Remainder 
END-STREAM ; 

: FILTER - 
-2 ALLOT HERE @ [COMPILE] LITERAL \ Pass predicate address 
COMPILE <FILTER> ; IMMEDIATE \ to generic filter 

#224 

(-L. L. Odette 6-6-84 MVP-FORTH ) 

: <MAP> ( Stream,Function-address . .. Stream ) 

OVER 3 + \ Format for constructor 
MAKE-HEAD >R HEAD R> EXECUTE \ Apply function to head 
MAKE-TAIL >R TAIL R> MYSELF \ Map tail 

END-STREAM ; 

: MAP 
-2 ALLOT HERE @ [COMPILE] LITERAL \ Pass function address 
COMPILE <MAP> ; IMMEDIATE \ to generic map 

Vv 

#225 

(Le be Odette 6-6-84 MVP-FORTH ) 


: \ Length refers to # of items in (init-value, operator, length) 


4 


>: ACCUMULATE  ( Init-value,operator,length,stream .. . Stream ) 
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DUP 1+ PICK OVER + 2+ \ Compute data length for constructor 


5 
6 MAKE-HEAD \ (init,op,length) looks like a stream 
7 STREAM-DROP DDROP \ Compute head 
8 MAKE- TAIL 
9 STREAM-DUP DELAY-TAIL STREAM->R \ Save delayed tail 
10 DUP 2+ DUP ROLL SWAP ROLL SWAP \ Get operator,length 
¥1 >R SP@ 3 PICK 2* + >R DR \ Save them with stack data 
12 HEAD R@ EXECUTE \ Accumulate output and input 
13 R> SP@ R> SWAP - 2/ R> + \ Package (init-value,op, length) 
14 STREAM-R> MYSELF \ Remake accumulation 
15 END-STREAM ; 
SCR #226 
0’ ( L. L. Odette 6-6-84 MVP-FORTH ) 
1 
2 2: DIVISIBLE-BY ( stream,divisor .. . filtered-stream ) 
3 >R BEGIN STREAM-DUP HEAD R@ MOD \ Divide head by divisor 
4 0= WHILE TAIL REPEAT \ Repeat while divisible 
5 R>- OVER 3. + \ Set count for stream 
6 MAKE-HEAD DROP HEAD \ head is first not div 
7 MAKE- TAIL >R TAIL R> MYSELF \ Filter again for tail 
8 END-STREAM ; 
9 
10 : SIEVE DUP 2+ \ Set up length 
11 MAKE-HEAD HEAD \ First element is prime 
12 MAKE- TAIL SPLIT DIVISIBLE-BY MYSELF \ Filter tail by head 
i3 END-STREAM ; 
14 
15 
SCR #227 
0 (Le. Le Odette 6-6-84 MVP-FORTH ) 
1 
2 \ Assorted words to manipulate the parameter field pointer 
3 \ and parameter stack representation during EXEC 
4 
5 : GET-POINT (.. . X,Y,parameter-field-pointer ) 
6 R> R> R> -R> - 4: ROLL OF 3 
7 
8 : PUT-POINT ( x,y,parameter-field-pointer ... ) 
9 R> SWAP >R SWAP >R SWAP OR OR ; 
10 
11: RE-STREAM ( Restore count word to stack representation ) 
iz R> R> R> R> SWAP >R SWAP >R SWAP OR ; 
13 
14 : UN-STREAM ( Stack representation count word to return stack ) 
15 R> R> R> 4 ROLL: OR OR. OR OR 3 
SCR #228 
O ( L. Le. Odette 6-6-84 MVP-FORTH ) 
1 \ More assorted pointer and return-stack manipulations 
2 
3. LIT “(2.2 <: we @=painter ).\ Perform like, Lif 
4 R> GET-POINT 2+ DUP 
S >R SWAP >R SWAP >R SWAP OR @ ; 
6 
7 : SET-POINT OF ga Nee) \ Set according to literal field 
8 R> R> *LIT 
9 GET-POINT 2- 4 ROLL + PUT-POINT PR RF 
10 
11 : +2-POINT \ Increment pointer 
12 R> R> GET-POINT 2+ PUT-POINT >R OR ; 
is 
14 : -—2-POINT \ Decrement pointer 
B Mee R> R> GET-POINT 2- PUT-POINT >R OR ; 


(Continued on next page) 
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Streams Listing (Listing Continued, text begins on page 58) 


SCR #229 


( L. L. Odette 6-6-84 MVP-FORTH ) 


\ Replacement words - acting on environments 


WONHNO BB WN FE © 
- 


Mag» Ae: SWAP >R 1- STREAM-SWAP 1+ R> SWAP STREAM-SWAP ; 
>R ) : *>R RE-STREAM *R* UN-STREAM ; 
( R> ) : *R> RE-STREAM STREAM-SWAP *R* STREAM-SWAP UN-STREAM ; 
( R@ ) : *R@ RE-STREAM STREAM-SWAP OVER SWAP 1+ *R* 
STREAM-SWAP UN-STREAM ; 
£O° (EXIT). 2: 4X2 -2-POINT ; 
1 not Eis ae OK ag GR es R> *LIT SWAP DR ; 
12 
13 ( OBRANCH ) *OBR O= IF SET-POINT ELSE +2-POINT THEN ; 
14 ( BRANCH ) 7 ABR SET-POINT ; 
15 
SCR #230 


O ( L. L. Odette 6-6-84 MVP-FORTH ) 


2 \ More replacement words 

3 

4 ( <DO> ) *DO SWAP RE-STREAM *R* *R* UN-STREAM ; 

5 

6 ( <LOOP> ) : *LOOP RE-STREAM STREAM-SWAP UN-STREAM 

7 1+ OVER OVER - 0= 

8 IF DDROP RE-STREAM 2- 

9 STREAM-SWAP 2+ UN-STREAM +2-POINT 
10 ELSE RE-STREAM STREAM-SWAP UN-STREAM 
AAS SET-POINT 
12 THEN ; 

13 
14 
i 
SCR #231 

CO ttn B.. Odette 6-6-84 MVP-FORTH ) 

1 \ Using C.E. Eaker's Case construct. Forth Dimensions Li(3) 334 

2 

3: RET-STACK \ Map ret-stack, pntr-control words to equivalent 

4 CASE 

5 [ FIND R> ] LITERAL OF [ FIND *R> ] LITERAL ENDOF 

6 [ FIND >R ] LITERAL OF [ FIND *>R ] LITERAL ENDOF 

f [ FIND R@ ] LITERAL OF [ FIND *R@ ] LITERAL ENDOF 

8 [-FIND EXI? ] LITERAL OF [ FIND *xT ] LITERAL ENDOF 

9 E--FIND: LIT ] LITERAL OF [ FIND *LT ] LITERAL ENDOF 
10 [ FIND OBRANCH ] LITERAL OF [ FIND *OBR ] LITERAL ENDOF 
11 [ FIND BRANCH ] LITERAL OF [ FIND *BR ] LITERAL ENDOF 
az [ FIND <DO> ] LITERAL OF [ FIND *DO ] LITERAL ENDOF 
LS [ FIND <LOOP> ] LITERAL OF [ FIND *LOOP ] LITERAL ENDOF 
14 DUP ENDCASE  ; 

15 
SCR #232 

O° te by: Deetee 6-6-84 MVP-FORTH ) 

1 

2 : EXEC \ Accumulate environments with code address stream 

(Continued on page 66) 
62 
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Thanks to YOU... . We're Growing . 


with YOU and your Computer . 


LEO ELECTRONICS, INC. 
P.O. Box 11307 

Torrance, CA. 90510-1307 

Tel: 213/212-6133 800/421-9565 
291 985 LEO UR 


ie Offer. PRICE (3 QUALITY... 









PERSONAL SERVICE 


64K UPGRADE 


9 Bank (IBM PC) $43.65 (150ns) 
$41.85 (200ns) 
4164 (150ns) $4.85 ea. 
(200ns) $4.65 ea. 
8 Bank (other PC) $38.80 (150ns) 
$37.20 (200ns) 
4164 (150ns) $4.85 ea. 
(200ns) $4.65 ea 


256K ‘‘Mother-Saver’’ Upgrade 
8 - 256K - (150ns) $400.00 


6116P-3 — $4.40 2732 ~—  $3:95 
2716 — $3.20 2764 — $7.00 
TMS-2716 — $4.95 27128 — $24.00 


We accept checks, Visa, Mastercard or Purchase Orders 
from qualified firms and institutions. U.S. Funds only. 
Call for C.O.D. California residents add 6%2% tax. 


Shipping is UPS. Add $2.00 for ground and $5.00 for 
air. ‘All major manufacturers. All parts 100% guaranteed. 
Pricing subject to change without notice. 
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Six Times Faster! 


For only $95, Q/C is a ready-to-use C compiler for CP/M. You get 
complete source code for the compiler and over 75 library functions. 
Q/C is upward compatible with UNIX Version 7 C, but doesn’t sup- 


port long integers, float, parameterized #defines, and bit fields. 


e Full source code for compiler and library. 

@ No license fees for object code. 

e Z80 version takes advantage of Z80 instructions. 

e Excellent support for assembly language and ROMs. 

e Q/C is standard. Good portability to UNIX. 
Version 3.2 of Q/C has many new features: structure initialization, 
faster runtime routines, faster compilation, and improved ROM sup- 
port. Yes, Q/C has casts, typedef, sizeof, and function typing. The 

| Q/C User’s Manual is available for $20 (applies toward purchase). 

VISA and MasterCard welcome. 


sGSRi Ee oRETEET 
5266 Hollister 
Hered ene CA 93111 
(805) 683-1585 


Q/C, CP/M, Z80, and UNIX are trademarks of Quality Computer Systems, Digital 
Research, Zilog, Inc., and Bell Laboratories respectively. 
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Super Fast Z80 Assembly Language Development Package 


Z80ASM 


e Complete Zilog ® Conditional assembly 
Mnemonic set e Assemble code for 





























e Full Macro facility execution at another 

® Plain English error address (PHASE & 
messages DEPHASE) 

e One or two pass e Generates COM, HEX, 
operation or REL files 


e Over 6000 lines/minute ® COM files may start at 
e Supports nested other than 100H 


INCLUDE files ¢ REL files may be in 

e Allows external bytes, a Gee or 
words, and expressions 
(EXT1* EXT2) e Separate PROG, DATA 


@ Labels significant to 16 & COMMON address 


characters even on Shoe ne 
extemais (SLA Fanhat Soren arn deine: 
Only) tions from the console 


® Flexible listing facility 
includes TIME and 
DATE in listing (CP/M 
Plus Only) 


e Integral cross-reference 


e Upper/lower case 
optionally significant 







Eor more information or to order, call: 


1-800-833-3061 


In PA, (412) 282-0864 


Or write: SLR SYSTEMS 
1622 North Main Street, Butler, Pennsylvania 16001 


SLRNK 


e Links any combination © COM may start at 
















of SLR format and other than 100H 
Microsoft format REL e HEX files do not fill 
files empty address space. 
e One or two pass e Generate inter-module 
operation allows output cross-reference and 
files up to 64K load map 
e Generates HEX or COM~ e Save symbol table to 
files disk in REL format for 
e User may specify PROG, use in overlay 
DATA, and COMMON generation 


loading addresses e Declare entry points 
from console 

e The FASTEST Micro- 
soft Compatible Linker 
available 
















oe 
Us MMe 
SBEED! 
e Complete Package Includes: Z80ASM, SLRNK, SLRIB 
- Librarian and Manual for just $199.99. Manual only, $30. 
e Most formats available for Z80 CP/M, CDOS, & TURBODOS 
e Terms: add $3 shipping US, others $7. PA add 6% sales tax 


L RW__Systems 
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SYSTER DIS 

Serial Mo: 100004 

Format: 13M Pc 190% « 
PC) -(5¢ 

Version: 1.0 
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Remember the magic you 
expected when you first purchased 
aPC? 

It's here. 

dBASE III™ is the most power- 
ful database management system 
ever created for 16-bit 
microcomputers. It pulls 
every ounce of energy 
out of your PC and puts 
it to work. 

On top of that, it’s 
fast and it’s easy. 


You've never seen 
anything like it. 
dBASE III can handle over a billion 
records per file, limited only by your com- 
puter system. You can have up to ten files 
open, for sophisticated applications pro- 

grams. 

When you have two related files, infor- 
mation in one can be accessed based upon 
data in the other. 

dBASE III now handles procedures, 


parameter passing and automatic variables. 


You can include up to 32 procedures in a 
single file. With lightning speed. Because 
once a file is opened, it stays open. And 
procedures are accessed directly. 


Easier than ever. 

dBASE III uses powerful yet simple 
commands that are the next best thing to 
speaking English. 

If you're unsure of a command, HELP 
will tell you what to ask for. 

If you don’t know what command 
comes next, acommand assistant does. All 


ore power 
Co you. 





you have to know is what you 
want it to do. 

Our new tutorial/manual 
will have you entering and 
viewing data in minutes rather 
than reading for hours. 

And to make matters 
easier, you get a full screen 
report setup for simple infor- 
mation access. 


Faster than no time at all. 

dBASE III isn’t just fast. It’s ultra-fast. 
Operating. And sorting. Even faster, is no 
sorting. Because dBASE III keeps your 
records in order, so you really don't have to 
sort anything. Unless you want to. Then 
watch out! 


What about dBASE II”? 

It’s still the world’s best database man- 
agement system for 8-bit computers. And 
it’s still the industry standard for account- 
ing, educational, scientific, financial, busi- 
ness and personal applications. 

Tap into our power. 

For the name of your nearest authorized 
dBASE III dealer, contact Ashton- Tate, 10150 
West Jefferson Boulevard, Culver City, CA 
90230. (800) 437-4329, ext. 333. In Colorado, 
(303) 799-4900. 


ASHTON ‘TATE 


© Ashton-Tate 1984. All rights reserved. dBASE III and Ashton-Tate are 
trademarks and dBASE II is a registered trademark of Ashton-Tate. 
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Streams Listi N§ (Listing Continued, text begins on page 58) 


3 SWAP >R SWAP >R SP@ >R \ Save pointer and stack depth info 
4 EXECUTE 
5 Ro" SP@ = 2/7 'R>- + R> 24+ > \ Re-form environment 
6 
7 
8 : PNTR \ Extract pointer from an environment 
9 >R STREAM-DROP STREAM-DROP R> : 
10 
ll ( Maps ) 
12 : PNTR-MAP PNTR MAP ; 
13 : @-MAP @ MAP ; 
14 : RET-MAP RET-STACK MAP ; 
2 he 
SCR #233 
Ot Ge lie “Odette 6-6-84 MVP-FORTH ) 
1] 
2 \ ENV-EXEC takes initial environment and leaves accumulation 
3 
4 : ENV-EXEC ( Ret-stack-rep, Param-stack-rep,Pfa . . . Stream ) 
5 OVER DUP 3 + PICK + 3 + \ Compute length 
6 [ FIND EXEC ] LITERAL SWAP \ Compose for accumulate 
i STREAM-DUP DUP 2+ \ Dummy stream 
8 MAKE-HEAD DDROP END-STREAM \ Tail never accessed 
9 PNTR-MAP @-MAP RET-MAP \ Pass through maps 
10 ACCUMULATE ; 
ad. 
12 
i3 
14 
15 
SCR #234 
0 ( L. L. Odette 6-6-84 MVP-FORTH ) 
1 
2 \ STEP expects an accumulation based on EXEC and leaves a stream 
3 \ HEAD leaves the head of the input accumulation 
4 \ TAIL leaves a new accumulation 
S 
6 STEP DUP 2+ \ Set stream count 
7 MAKE-HEAD HEAD 
8 MAKE- TAIL TAIL HEAD \ Get first of rest 
3 ENV-EXEC MYSELF \ Compose accumulate & step 
10 END-STREAM ; 
iat 
LZ 
es. 
14 
35 
SCH: $235 
O ( L. L. Odette 6-6-84 MVP-FORTH ) 
1 
2 ( [environment] ,number “See Pe day 
3 ENV-DISPLAY ~- WORD © -CR HEX 5 SPACES 
4 a: PES" OU. 2 Spares 
5 -" Parameter Stack -> " l< 2DGP IF 0 DO. U.~- LOOP THEN 5 SPACES 
6 -" Return Stack -> " l= ?DUP IF 0 DO: 0. £o00P THEN 
7 CR DECIMAL ; 
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fs 
© 


TESTO ( Test word 0 ) 
ial Site SIR OF: DO 22" LOOP THEN : 


tt eee: (Pest word: 1.) 
14 BEGIN 1l- DUP O= UNTIL ; 


1S 
SCR #236 
0: CLL... Odette 6-6-84 MVP-FORTH ) 
1 
2: STEPS (N steps for 2 words in parallel ) 
3 0 DO 
4 SPLIT 1 ENV-DISPLAY STREAM-SWAP \ Execute and display 
5 SPLIT 2 ENV-DISPLAY STREAM-SWAP \ Execute and display 
6 LOOP: 3 
- 
8 \ Set up stream to execute TESTO 
9 1 ( empty return stack ) 2 2 3 ( data etack is: 2 -2-) 
10. ESTO ENV-EXEC STEP 
ll 
12 \ Set up stream to execute TESTI 
13 1 ( empty return stack ) 2 2 ( data stack is: 2 ) 
14% TESTI ENV-EXEC STEP 
Le 


End Listing 


, 


~ 
ae Se OS OO SO Ol eS Oe 8 OO ee ae 

nee ee OAS OS et tt OOO OOO et 8 cs Mae 

0 ge tee eas Oh O00 OOO OO Oe aes” 

es ee ee OOO OO WO 8 PS OD. Ow Om 
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ae ae ee ee en 0S. 00 Oe OO Oe, 










: AN OUTSTANDING VALUE nt ee 
Including a new dynamic debugger sat ig cobs and lg $1500.00 worth of 
» . . ==: *C’ compilers... is the one we use.” 
Still the choice of professionals Ee or Bruce E. Wampler, Aspen Software 
¢ Compiler option to generate special ¢ Clink option to suppress os ™ author of ‘“Grammatiko Sern 
symbol table for new dynamic warm-boot =" 5 : : ee 
Sy iat by Dawe, Kirkland: (yeith the e New library file search capabilities = C/80 Full featured C Compiler for CP/M® with tee 
bugger, the distribution k “Sr as~ : : : 
eee Se pretin petocs * New, fully-indexed 180 page manual == 1/0 redirection, command expansion, 
* Takes full advantage of CP/M* 2.x, °* CPIM is a trademark of Digital ==: execution trace and profile, initializers, 
including random-record read, seek Research, Inc. See 

















relative to file end, user number 
prefixes, and better error reporting. 


WAG eS, $120.00 
V 146 ....$115.00_ 


(needs only 1.4 CP/M) 


Other C compilers and 
C related products 
available .. . Call! 


TERMS: CHECK, 
MONEY ORDER, C.O.D., 
CHARGE CARD 
HOURS: 9 am—5 pm * Excess 64 exponents 

Monday —Friday 


SOURCE 
(316) 431-0018 INCLUDED 290090 


ee -~. =r = =) 


22 Macro-80 compatibility, ROMable code. 
OED SETS! Adds 32 bit data 
=: types to C/80 3.0 compiler. Includes 
=== 1/0 and transcendental function library. 









IT’S HERE! 


MONEY MATH 


e Uses BCD internal 
representation. 








e You choose from two types 
of rounding. 


ATTAIN «call or write for 16 page booklet 
= detailing our programming languages LISP/80, 
RATFOR, Assemblers, and 25 other CP/M products. 


e Configurable exception 
handling 

e Distributed with 12 digits 

precision. Easily configured 

for more or less 
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Dedicated Micro Systems. Inc. 


PO Box 481, Chanute. Kansas 66720 


include $2.50 for postage and handling 
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A Forth Native-Code 
Cross Compiler for the MC68000 





by Raymond Buvel 
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system and want to experiment with 

the Motorola MC68000, this cross 
compiler may interest you. One of the 
problems an experimenter faces in us- 
ing a new microprocessor is how to de- 
velop programs for it. While one solu- 
tion to this problem is to purchase a 
new computer system and a new set of 
software for each of the processors that 
interest you, this is obviously expen- 
sive. Another solution is to use an ex- 
isting computer and its software to de- 
velop programs for the new processor. 
Compilers that use an existing com- 
puter to produce code for another ma- 
chine are called cross compilers. 

The cross compiler presented here is 
a native code compiler for the 
MC68000. It loads on top of a host 
Forth development system (which 
doesn’t have to be running on a 68000) 
and compiles a subset of the Forth lan- 
guage. The compiler itself is written in 
Forth and I have isolated the necessary 
system-dependent parts to a few clear- 
ly identified words. I expect that the 
code presented here can be easily port- 
ed to most Forth environments. 


| f you have an 8-bit microcomputer 


constant, and subroutine references. 
The executable code is stand-alone and 
can be placed in ROM. The destination 
for the executable code is left entirely 
up to the user and can be changed by 
altering the definition of a single word 
in the compiler. The compiler does not 
contain any built-in words for doing 
I/O; this is left up to the user. 

In this article I am assuming the 
reader is familiar with the Forth lan- 
guage. Those not familiar with Forth 
should get a copy of the excellent book 
Starting FORTH by Leo Brodie. I used 
Starting FORTH as a reference when [| 
developed this compiler, so the Forth 
words implemented here work as de- 
scribed there. I have presented the de- 
tailed description of the operators sup- 
ported by the compiler in assembly 
language. Although you need a famil- 
larity with the MC68000 assembly 
language to understand the design of 
the compiler, it is not necessary to 
know assembly language to use the 
compiler. 


Memory Layout 
Before considering the compiler, you 


ae 8 ee ie boar gaa eee 


If you’ve been wondering how to get into programming 
on the Motorola 68000 chip, this Forth package could 
be the tool that gets you started. 





The compiler produces two types of 
compiled definitions: macros and sub- 
routines. The macro definitions are es- 
sentially extensions to the compiler it- 
self and do not directly produce an 
executable program. Subroutine defi- 
nitions generate the executable code, 
which can consist of macro, variable, 


Sea oO NUNS IBS aie ae 9g RE BERS a 
Raymond Buvel, Box 3071, Moscow, 


ID 83843. 





should know how it uses the memory of 
the MC68000 address space. The com- 
piler uses four separate areas of 
MC68000 address space. The pointers 
to these areas all are maintained in 
MC68000 registers, so the user can al- 
locate any area of memory for the vari- 
ous functions by properly setting up 
the registers. Thus, you need not re- 
compile the program to change the 
memory map. These areas are de- 
scribed below. 
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Code Pool 

Subroutine definitions place their output 
code in the code pool and update the 
code pool pointer variable in the compil- 
er (M68PCODE in Listing Two, screen 
9, on page 90). During execution of the 
resulting code, the MC68000 program 
counter is the pointer to this area of 
memory. Only relative addressing is 
used, so you can relocate the code pool 
simply by moving the code and starting 
the program at the proper place. 


Variable Pool 

The memory used by variables and ar- 
rays is allocated relative to the variable 
pool pointer (A5 in the MC68000). The 
compiler word M68ALLOT is used to al- 
locate space and maintain even address 
alignment. To avoid address faults, the 
value placed in AS must be even. With 
that restriction, you may place the vari- 
able pool anywhere in memory by set- 
ting the value of A5. With an appropri- 
ate supervisor program, you can produce 
reentrant modules with this compiler by 
using A5 to assign a separate space for 
the local variables each time the module 
is called. 


Data Stack 

MC68000 register A6 points to the 
memory used by the data stack. The 
stack is maintained using the auto dec- 
rement addressing mode to store infor- 
mation on the stack and the auto incre- 
ment addressing mode to remove infor- 
mation from the stack. For further 
information on the workings of the 
data stack, see the stack operator sec- 
tion of Listing One (page 76). 


Return Stack 

The hardware stack is used for the re- 
turn stack because most of the return 
stack operations then become auto- 
matic. A7 is the pointer to the return 
stack. Since there is both a supervisor 
and a user hardware stack pointer, you 
can use modules generated by this 
compiler for both interrupt service 
routines and user programs. 


Compiler Description 

The Forth subset that I chose to imple- 
ment is for a particular hardware config- 
uration, but you could expand it if you 
require different I/O. I assume that you 
have a computer with a Forth system 
running on it. In the following discus- 
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sion, I will refer to this computer as the 
host. I also assume that you are using 
the MC68000 as a coprocessor. This as- 
sumption greatly reduces the complexity 
of the subset to be implemented. All 
functions that interact with the terminal 
can be left out, and the host can handle 
all the interaction with the operating 
system and peripherals. 

A simple bidirectional communica- 
tion channel is all that is required be- 
tween the host and the MC68000. I 
have chosen to implement the arithme- 
tic, stack, memory access, and control 
operators found in most Forth systems. 
You can write I/O routines for data 
transfer between the MC68000 and 
the host using the primitives provided, 
since the MC68000 uses memory- 
mapped I/O. 

The compiler generates machine 
code, so there is no need for an inner 
interpreter. Because the MC68000 pro- 
vides the capability of writing position- 
independent code, all of the code pro- 
duced by this compiler is position 
independent unless the user explicitly 
forces it to be otherwise. Because the 
code is kept separate from the variable 
and stack space, the output from the 
compiler can be put into ROM. It is 
sometimes desirable to use programs 
generated with this compiler in host en- 
vironments other than Forth. Therefore, 
I have provided a simple output scheme 
that allows you to send the output code 
to any device supported by the host. 

To avoid conflict with the Forth def- 
initions in the host, most of the compil- 
er is in a separate vocabulary (named 
M68K) that is accessed only through 
the defining words. All definitions cre- 
ated with the compiler also are placed 
in this vocabulary to prevent acciden- 
tal reference to them while using the 
host development system. I have given 
some of the words normally used in 
Forth different names to avoid con- 
flicts with the host definitions; I will 
discuss these differences later. 

The compiler produces two basic 
types of definitions: macros and subrou- 
tines. Macro definitions do not generate 
any output code, but when referenced 
they store the code that implements the 
macro in the definition currently being 
compiled. Subroutine definitions gener- 
ate output code when defined and gen- 
erate a subroutine call when referenced 
in another subroutine definition. A 
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macro definition may be referenced in 
another macro or in a subroutine defini- 
tion, but a subroutine may not be refer- 
enced in a macro definition. The macro 
definition is the basic building block in 
the compiler, so I will discuss it in detail 
before considering constant, variable, 
and array definitions. 


Macros 


You create a macro in the same way as 
you do a Forth colon definition, except 


‘-M68MAC 2* DUP + -M68MAC_ 







ae - : 
A macro definition a 





Figure 1 
nd the resulting dictionary 


that you use :M68MAC and ;:M68MAC 
in place of the : and ; of a Forth defini- 
tion. The body of the definition con- 
sists of executable MC68000 machine 
code or references to macros, vari- 
ables, constants, and arrays. For exam- 
ples of macro definitions, see screens 
33 — 43 in Listing Two and the exam- 
ples below. 

Defining a macro activates the 
M68K vocabulary, creates a Forth 
header in the dictionary of the host, and 






Dictionary header for the macro 2* 
Length of macro code segment 
MC68000 machine code for DUP 
MC68000 machine code for + 





entry 





(Defines the constant #5) 


3D 3c 
00 05 


Dictionary header for the macro #5 
_Length of macro code segment 

MOVE.W #5, -(A6) 

Pushes the value 5 onto data stack 


Figure 2 
A constant definition and the resulting dictionary entry 








5 M68CARY EXAMP 











Variable pool pointer: 
Before = 0020; After = 0026 





Dictionary header for the macro EXAMP 
Length of macro code segment _ 
Code to add the variable pool relative 
address of the array (20 hex) to the - 
index value on the data stack. 


Figure 3 





(Defines the byte array EXAMP) 






An array definition, the resulting dictionary entry, and the effect on 
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the variable pool pointer (Note all values are in hex) 









reserves space for the code length. The 
host Forth is in execution mode, so any 
words referenced in the body of a macro 
definition are executed immediately. 
Terminating the macro definition 
stores the length of the code segment 
and reactivates the Forth vocabulary. 
Any subsequent reference to the macro 
copies the code contained within the 
macro body into the host dictionary at 
the location HERE, then the dictionary 
pointer is updated to point to the mem- 
ory location following the code. 

To illustrate this process, Figure | 
(at left) shows the definition of the 
macro 2*. First :M68MAC is used to 
start the definition, create the Forth 
header for 2* (I am being deliberately 
vague about the form of the header be- 
cause that depends on the particular 
implementation of Forth being used), 
and allocate space for the code length. 
Next the macro DUP is called; it copies 
the code for performing a DUP function 
into the host dictionary at the location 
HERE and updates the dictionary 
pointer by two. Then the macro + is 
called; it copies its code into the dictio- 
nary and updates the dictionary pointer 
by four. Finally ;M68MAC is used to 
terminate the definition and compute 
and store the macro length in the two 
bytes following the header. In this case, 
the length is six bytes. 


Constants and Variables 

Single- and double-precision constants 
are compiled as macros containing a 
single MC68000 instruction to push 
the value of the constant onto the data 
stack. For example, the word M68CON 
is used to define a single-precision con- 
stant in Figure 2 (at left). The value of 
the constant is taken from the host 
stack and stored in the macro as part of 
a move-immediate instruction (see 
Listing One). The word M68DCON is 
the same, except that it involves a dou- 
ble-precision value. 

Variables are defined as single-preci- 
sion constants that push the variable 
pool relative address onto the stack for 
use with the fetch and store operations. 
Note that the variable pool relative ad- 
dress is a 16-bit signed integer, so the 
variable pool can be no longer than 32K 
bytes. The word M68VAR defines a sin- 
gle-precision variable, while the word 
M68DVAR is for double precision. 

Arrays are defined as macros that 
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take the index off the stack, compute 
the variable pool relative address of 
that element, then leave the result on 
the stack. The compiler supports ar- 
rays whose elements are either byte, 
single precision, or double precision. 
The words M68CARY, M68ARY, and 
M68DARY, respectively, define these 
data types. Figure 3 (page 70) shows 
the definition of a byte array contain- 
ing five elements. The variable pool 
pointer is shown before and after the 
definition of the array. Note that the 
compiler maintains alignment on word 
boundaries to avoid address exceptions 
when the code is executed. 


Subroutines 

Defining a subroutine activates the 
M68K vocabulary and creates a Forth 
header in the dictionary of the host. 
The code pool relative address of the 
subroutine is then stored as the first 
entry of the definition. Compilation 
proceeds in the same way as in a macro 
definition, except that references to 
subroutine definitions are also allowed. 
When the definition is terminated, a 
return from subroutine instruction is 
compiled, the code pool pointer 
M68PCODE is updated, and the code is 
sent to the output file and deleted from 
the dictionary. This leaves only the 
header and the code pool relative ad- 
dress of the subroutine in the 
dictionary. 

Subsequent reference to the subrou- 
tine uses the code pool, relative address 
to compute the relative address re- 
quired in a branch to the subroutine 
instruction. Note that the branch in- 
structions on the MC68000 restrict 
your program to 32K bytes because all 
of the subroutine calls are back 
branches; forward referencing is not 
supported in this compiler. 

Since the code pool relative address 
of a subroutine is stored at the start of 
the definition, you may reference a 
subroutine recursively. You must exer- 
cise care when doing this, however. 
Subroutine calls do not create local 
variables, so a subroutine that stores a 
value in a variable may not operate 
properly when called recursively. I rec- 
ommend keeping all variables on the 
stack in recursive subroutines. When 
you do this, make sure the data stack is 
large enough; because there is no 
check for stack overflow, something 
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will be clobbered if the data stack 
space is too small. 

Figure 4 (page 72) illustrates the 
process of subroutine compilation. The 
word :M68K is used to start the defini- 
tion and create the Forth header for 
4*- this also sets the code pool relative 
address of 4* (in this case, it is zero). 
Next the macro 2* is called twice (this 
macro 2* is the one defined in Figure 
1, not the one actually implemented in 
the compiler, which is more efficient). 
Each time 2* is called, the code imple- 
menting it is sorted in the host dictio- 
nary, and the dictionary pointer is up- 
dated. Then ;M68K is used to termi- 
nate the definition by compiling a 
subroutine return instruction, adding 
the length of the subroutine to the code 
pool pointer, copying the code to the 
output file, and deleting the code from 
the dictionary. 


Installation 

To install the compiler, you need either 
a FIG Forth or a Forth-79 system. The 
installation on a Forth-79 system is a 
little more involved, so I will cover the 
FIG installation first. Listing Two con- 
tains the complete source for the com- 
piler; you must somehow get these 35 
screens into your Forth system. (See 
the section on availability at the end of 
this article. ) 

You must customize a few words in 
the compiler to your system. In screen 
12, a word called HIGH-BYTE takes 
the top entry off the stack and returns 
the high byte. You must replace this 
definition with the code to accomplish 
this task; it may. be necessary to use a 
code definition on your system. The 
word M68OUT in screen 18 can be de- 
signed to send the generated code to 
whatever output device or file you want 
(refer to the note in that screen). The 
word M68O0UT currently prints the 
code on the screen. If you want to use 
the external reference capability, you 
will need to modify the definition in 
screen 20 to send the output where you 
want it. If you do not want that feature, 
simply delete screen 20 entirely. 

The compiler is loaded in three sec- 
tions. The basic compiler and error 
checking routines are loaded from 
screens 8—24. The program control 
and looping operations with their asso- 
ciated error checking are contained in 
screens 25 —33. The macros that im- 





33 KFLOPS 


Use your IBM PC (or compatible) to mul- 
tiply two 128 by 128 matrices at the rate 
of 33 thousand floating-point operations 
per second (kflops)! Calculate the 
mean and standard deviation of 16,384 
points of single precision (4 byte) float- 
ing-point data in 1.4 seconds (35 
kflops). Perform the fast Fourier trans- 
form on 1024 points of real data in 6.9 
seconds. Near PDP-11/70 performance 
when running the compute intensive 
Owen benchmark. 


WL FORTH-79 


FORTH-79 by WL Computer Systems is 
}a powerful and comprehensive pro- 
gramming system which runs on the 
IBM PC (and some compatibles). If your 
computer has the 8087 numeric data 
processing chip (NDP) installed, then 
this version of FORTH-79 will unleash 
the awesome floating-point processing 
power which is present in your system. 
lf you haven't gotten around to installing 
the 8087 NDP coprocessor in your com- 
puter, you can still use WL FORTH to 
write applications using standard 
FORTH-79. 







































System includes editor, memory dump, 
decompiler, nondestructive stack print- 
out, screen printer and screen copy uti- 
lities. FORTH sources for these utilities 
are included. 








Unlike most other products, the com- 
plete source is available at a very 
affordable price. 










Package 1 includes FORTH-79 ver- 
sions with and without 8087 support. 
Included are screen utilities, 8087 and 
8088 FORTH assemblers. $100 






Package 2 includes package 1 plus the 
assembly language source for the WL 
FORTH-79 nucleus. $150 



















Package 3 includes package 2 plus the 
WL FORTH-79 source screens used to 
add the 8087 features to the vocab- 
ulary. $200 


Starting FORTH book. $22 


WL Computer Systems 
1910 Newman Road 
W. Lafayette, IN 47906 
(317) 743-8484 


Visa and Master Card accepted. 


a 
IBM is a trademark of International Business Ma- 
chines 


Circle no. 95 on reader service card. 
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plement the operators supported by the 
compiler are in screens 34 — 43, 

For a Forth-79 system, the above ap- 
plies, but you must do some additional 
work. I have used the FIG Forth word 
ENDIF instead of the Forth-79 word 
THEN, so on a Forth-79 system the def- 
inition of ENDIF given in Listing Two, 
screen 44, should be used. I have also 
used the FIG word (BUILDS in a 
(BUILDS ... DOES) construction; see 
screen 44 for a discussion of a definition 
for (BUILDS. With these two defini- 
tions, the compiler should run on a 
Forth-79 system. However, I cannot 
guarantee that this is the case. Because 
my system is a combination FIG Forth 
with Forth-79 extension, my testing 
may not have picked up all of the prob- 
lems. If you have difficulty with this, 
either get in touch with me or send in a 
letter to the editor. 


Using the Compiler 

Before explaining how to use the com- 
piler, | want to point out some of the 
difficulties you will encounter. Al- 


‘M68K 4* 2* 2* -M68K 


Code pool pointer 


Before = 0000; After = OOOE 


Code sent to the output file: 
2° i Pig 


1 
1 
1 
4 
1 


30 16 30 1E D1 6&6 


3D 16 30 IE 01 66: 


though this compiler uses a subset of 
Forth, you will find that you must 
modify most Forth programs before 
the compiler will accept them. Obvi- 
ously, you must remove and/or replace 
constructions that are not supported by 
the compiler, but many programming 
techniques used in Forth also will not 
work because the output code is noth- 
ing like the indirect threaded code used 
in most Forth implementations. There- 
fore, such practices as modifying the 
values of constants on the fly will not 
work, nor can you compile things into 
the dictionary at runtime since there is 
no dictionary. 

The compiler runs as a collection of 
words in the host Forth system, but I 
have not rewritten the Forth word 
NUMBER to be sensitive to the state of 
the M68K compiler. Therefore, a 
number contained within a definition 
will not be compiled into the definition 
automatically. Instead it goes on the 
host stack and must be compiled into 
the definition with the word LITERAL 
(or DLITERAL in the case of double 


Dictionary header for the subroutine 4* 
Relative address of subroutine 


i RTS instruction 


AE 75 


Figure 4 : 
| A subroutine definition, the resulting dictionary entry, and the 
output code 


ime 
| Source Code size (10 iter.) 
85 sec : 
8.7 sec 
8.1 sec 


2.1 sec 


| Screen 8 
Screen 9 
Screen 11 
Assembler 


109 bytes 
220 bytes 
216 bytes 

74 bytes 


Comments 


Z80 Forth @ 3.5Mhz 

68000 @ 10Mhz with 2 wait states 
68000 @ 10Mhz with 2 wait states 
68000 @ 10Mhz with 2 wait states 


Figure 5 
Results of benchmark tests shown in Listing Three 





precision). Also note that you must use 
at least one subroutine definition to get 
the code to the output file. This should 
all become clear as I go through the 
example in Listing Three (page 104). 

Listing Three, screen 8, shows the 
Forth implementation of a benchmark 
program (Jim Gilbreath, Byte, Sep- 
tember 1981, page 190); I will use this 
as a reference to show how the Forth 
code must be modified to compile 
properly. Screen 9 shows the same pro- 
gram for the M68K compiler. The first 
thing to notice is the difference in the 
definitions of the constants. Zero is 
used several times in the program. To 
avoid using LITERAL so many times, I 
defined a constant #0 in the M68K vo- 
cabulary and used that wherever a zero 
was used. (I could have chosen the 
name O for this constant, since it is re- 
defined only when the M68K vocabu- 
lary is active, but that would have 
made the example more confusing.) 

The constant SIZE is used in two 
ways in the program. SIZE is used as a 
Forth constant when allocating array 
space and as an M68K constant within 
the definition of DO-PRIME. It is de- 
fined twice, once in the Forth vocabu- 
lary using CONSTANT and once in the 
M68K vocabulary using M68CON. 
The definition of the variable FLAGS 
is a little different from screen 8: the 
M68K compiler follows the convention 
in Starting FORTH and does not pro- 
vide initialized variables. Note that the 
constants 1 and 3 used inside DO- 
PRIME are compiled using LITERAL, 
as all numbers inside a definition must 
be if they are not defined as constants. 
The resulting code for either a con- 
stant or literal is identical; only the 
compilation process is different. I used 
:M68MAC to define DO-PRIME be- 
cause I wanted the entire program to 
be a single subroutine. 

Screen 10 contains an initialization 
routine required to set the pointers 
used by the code; it also contains a sub- 
routine TEST, which causes the output 
code to be generated. TEST also causes 
the benchmark to be iterated 10 times 
to conform to the requirements of Gil- 
breath’s test. Note that, because the 
prime count cannot be printed as in the 
Forth version, it is simply dropped 
from the stack. You might think that 
you could eliminate the prime count 
from the program itself, but that 
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P. 0. Box 280298 Dallas, Texas 75228 
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B. G. MICRO 


Big Computer Mfg. Makes $900,000 Goofl! 


COMPUTER/DISK DRIVE 
SWITCHING POWER SUPPLY 


ORIGINALLY DESIGNED TO RUN A Z-80 
BASED SINGLE BOARD COMPUTER 
WITH TWO 5-1/4 IN. DISK DRIVES AND 
CRT MONITOR. 














SPECS: + 5VDC 5 AMPS MAX 
#1 + 12 VDC 2.8 AMPS MAX 
#2 + 12 VDC 2.0 AMPS MAX 
-12 VDC .5 AMPS MAX 


INPUT: 115 or 230 VAC 60Hz 


SMALL SIZE: 6-1/8 x 7-3/8 In. 
HIGH EFFICIENCY SWITCHER MFG. 
BY CAL. DC IN USA! 


The poor Purchasing Agent bought about 10 times as many of these DC 
switchers as his company would ever use! We were told that even in 
10,000 piece lots they paid over $72 each for these multi-output 
switchers. When this large computer manufacturer discontinued their 
Z-80 Computer, guess what the Big Boss found in the back warehouse; 
several truckloads of unused $72.00 power supplies. Fortunately we 
heard about the deal and made the surplus buy of the decade. Even 
though we bought a huge quantity, please order early to avoid 
disappointment. Please do not confuse these high quality American 
made power supplies with the cheap import units sold by others. 





TERMS: Orders over $50 add 85¢ insurance. No COD. Tex. Res. Add 6% Sales Tax. Subject to prior sale. Foreign orders: US funds only. We cannot ship 
to Mexico. Foreign countries other than Canada add $6 per board shipping. 





Circle no. 7 on reader service card. 


would give a false representation of the 
execution time of the benchmark. 

Screen 11 is the same program as 
screen 9, rewritten to use the array fea- 
tures of the compiler and to remove a 
couple of the inefficiencies built into the 
original program. Screen 12, which is 
identical to screen 10, is here simply to 
compile screen 11 without using an in- 
direct LOAD. Also shown in Listing 
Three is an assembly language version 
of the benchmark program used for 
timing and code size comparisons. Fig- 
ure 5 (page 72) shows the results of the 
benchmark. Note that we pay a fairly 
heavy penalty for using a stack-oriented 
langauge. The programming conve- 
nience is worth it in most cases, 
however. 

Figure 6 (page 74) is a description of 
the words that perform the compila- 
tion operations. The list is organized 
functionally rather than alphabetical- 
ly. The word described is listed to the 
left, followed by the host stack image; 
to the right is an example of the proper 
usage of the word. Listing One con- 
tains the assembly language source for 
the Forth words supported by this 
compiler. That listing also, includes a 
short description of the supported 
words. The reader should refer to List- 
ing One and Starting FORTH to clear 
up any confusion concerning these def- 
initions. Note that Listing One also de- 
scribes several operators that are not 
standard Forth. Operators for doing 
absolute memory references are de- 
scribed in the memory and I/O sec- 
tion. Absolute subroutine calls and 
jumps are described in the control op- 
erations section. 


Debugging Your Programs 

No easy way exists to debug programs 
written for this compiler, so I recom- 
mend the following development 
procedure: 


(1) Write and debug the program in 
Forth. Your Forth development sys- 
tem provides a good environment for 
debugging programs that you develop 
for this compiler. It is very important 
at this stage to avoid using any opera- 
tions not supported by the compiler, 
since you will just have to remove them 
later. You should avoid using embed- 
ded literals in your definitions—they 
are rather messy to take care of later. 
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(2) Translate the program into a 
form acceptable to the compiler. If 
you have avoided using embedded li- 
terals in your definitions, the only 
changes should be replacing the : and ; 
as appropriate. You can take care of 
the emedded literals by defining each 
one as a constant or using the word 
LITERAL (or DLITERAL). 

(3) Compile the program and load it 
into your MC68000 computer. Make 
sure that registers AS, A6, and A7 are 
set properly (either by a supervisor pro- 
gram, by hand, or by using the load in- 
structions provided in the compiler). 


The program should now operate 
properly. If not, step (2) is the most 
likely place to find the errors. I have 
frequently encountered errors in resolv- 
ing program control structures, errors 
that occur because an embedded literal 
has not been compiled. This type of er- 
ror is picked up in the compile phase, so 
incorrect code is not produced. 


:-M68K (--) 


Final Comments 
This compiler could form the basis for a 
modular programming environment 
for the MC68000 microprocessor. The 
modifications necessary would not be 
very complicated. To make the compil- 
er generate modular code, you would 
have to add a new word to the basic 
compiler. This word should reset all of 
the compiler variables in screen 9 to 
their original style and generate an ap- 
propriate header to permit the operat- 
ing system to load and execute the 
module. Another word to terminate a 
module and check for errors would be 
required; the error checking code in 
the existing compiler can be used as a 
guide. Note that the absolute address- 
ing operators must be used for all glob- 
al variables. I recommend that global 
variables be avoided and that all pa- 
rameters passed from one module to 
another be passed on the data stack. 

I would like to see floating-point 
arithmetic added to the compiler, but I 






:-M68K xxxx 


Creates a header for the subroutine word xxxx in the M58K vocabulary and 
sets the variables M68ENTRY and M68PFA. Reference to Xxxx within a sub- 
routine definition generates a branch to subroutine using the PC relative ad- 
dressing mode. The word xxxx may only be referenced within a subroutine 
definition. Any other usage will produce an error message. So long as no side 
effects occur, the word xxxx may be referenced recursively. Note that the 
code may be put into ROM because the stack and variable space are kept 


separate from the code. 
;M68K (--) 


Terminates the construction of a subroutine definition and sends the code to 
the output file. The code for the subroutine is deleted from the host dictionary 
after it is written out, and only the code pool relative address of the subroutine 


is retained. 
:-M68MAC (--) 


i=M68MAC xxxx 


Creates a header for the macro word xxxx in the M68K vocaulary and sets the 
compiler variable M68PFA. Reference to xxxx within a definition copies the 
compiled code into the host dictionary. A macro word may be referenced 
within the definition of another macro word or within the definition of a subrou- 


tine word. 
;M68MAC (--) 


Terminates the construction of a macro type word, encloses the code, and 


updates the compiler variables. 
M68CON (n--) 


n M68CON xxxx 


Defines a macro word xxxx that pushes the value n onto the stack when xxxx 
is executed. The value n must be on the host stack when M68CON is 


referenced. 
M68DCON (d--) 


d M68DCON xxxx 


Defines a double-precision constant in the same way as M68CON. 


Figure 6 
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am unlikely to do it anytime soon. I 
would also like to have a MC68000 as- 
sembler built into the compiler, so ma- 
chine code does not have to be typed in 
hex. (The Forth assembler developed 
by Michael Perry—Dr. Dobb’s Jour- 
nal, September 1983—might be adapt- 
ed for this purpose.) I encourage any- 
one who is interested to work on these 
extensions and publish their work in Dr. 
Dobb’s for the rest of us to use. 

Please note that I have copyrighted 
this compiler. However, I am releasing 
it for personal use and nonprofit distri- 
bution. If you sell my compiler as an 
integral part of a commercial software 
package, I expect a small royalty. You 
may sell any code produced by the 
compiler without notifying me or pay- 
ing royalties. Other than that, feel free 
to use it as you see fit and give it to 
whomever you like. You may also want 
to send it on to your favorite user 
group. All I ask is that you acknowl- 
edge the source. 





M68ALLOT (n--) 


Availability 

By the time you read this, the compiler 
should be available from the SIG/M 
User Group, Box 2085, 177 Hadley 
Ave., Clifton, NJ 07015 (Disks are 8- 
inch CP/M and sell for less than $10). 
The compiler is available on the 
following RCPM system: Thousand 
Oaks Technical RCP/M Sysop: Trevor 
Marshall; System 1: (805) 492-5472; 
System 2: (805) 493-1495. 

I would prefer that you get the com- 
piler from one of the above sources, but 
I will provide an 8-inch CP/M SSSD 
disk (sorry, no other formats) for $25. 
[We'll keep you updated on other 
sources as we hear of them. — Ed. | 


DDJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 195. 





n M68ALLOT 


Allocates n bytes of space in the variable pool by updating the variable pool 
pointer variable M68PVAR. Note that this word maintains even-byte align- 
ment so that address exceptions will not occur on 16- and 32-bit memory 
references. Also note that it is an error if the variable pool becomes longer than 
32K bytes, but the compiler will not report this as an error—incorrect code 
would be generated. 

M68VAR (--) M68VAR xxxx 
Defines a single-precision variable by using the pointer M68PVAR as the pa- 
rameter n for M68CON. The pointer M68PVAR is then updated by two bytes 
using M68ALLOT. Execution of the word xxxx leaves the variable pool relative 
address of the variable on the top of the stack. 

M68DVAR (-- ) ~ M68DVAR xxxx 
Defines a double-precision variable in the same way as M68VAR except that 
the pointer M68PVAR is updated by four bytes. - 

M68ARY (n -) n M68ARY xxxx 
Defines a single-precision array xxxx that is n elements long. The word xxxx is 
defined as a macro that takes an element number off the top of the stack and 
leaves the variable pool relative address of that element. 

M68CARY (n--) 

Defines a byte array in the same manner as M68ARY. 

M68DARY (n--) n M68DARY xxxx 
Defines a double-precision array in the same manner as M68ARY. 

EXTERNAL (--) EXTERNAL xxxx 
Create an external reference xxxx that contains the code pool relative address 
of the last subroutine word that was defined. The user can customize this word 
to produce a file containing an external reference list. Currently, this word 

creates a constant xxxx in the Forth vocabulary of the host. 





























n M68CARY xxxx 








Figure 6 
Description of compiling words 


Dr. Dobb’s Journal, September 1984 


Multiuser/Multitasking 
for 8080, Z80, 8086 


Industrial / 
Strength 


FORTH 













TaskFORTH.. 


The First 
Professional Quality 
Full Feature FORTH 

System at a micro price* 


LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 


yy Unlimited number of tasks 


yr Multiple thread dictionary, 
superfast compilation 


xx Novice Programmer 
Protection Package™ 


+x Diagnostic tools, quick and 
simple debugging 


x Starting FORTH, FORTH-79, 
FORTH-83 compatible 


yy Screen and serial editor, 
easy program generation 


yx Hierarchical file system with 
data base management 


* Starter package $250. Full package $395. Single 
user and commercial licenses available. 


If you are an experienced 
FORTH programmer, this is the 
one you have been waiting for! 
If you are a beginning FORTH 
programmer, this will get you 
started right, and quickly too! 


Available on 8 inch disk 
under CP/M 2.2 or greater 
also 
various 5%’’ formats 
and other operating systems 


FULLY WARRANTIED, 
DOCUMENTED AND 
SUPPORTED 


DEALER am 
INQUIRES | VISA® 
INVITED —_—_—_o 


Shaw Laboratories, Ltd. 
24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 


Circle no. 75 on reader service card. 
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Forth Com piler (Text begins on page 68) 
Listing One 


This file contains the assembler language code for all of the 
operations in the M68K compiler. 


Register usage.... 
A7 - Hardware and return stack pointer 
A6é - Data stack pointer 
A5 - Pointer to variable pool 
A4 - Reserved for future use 


All other registers are free to be used by any word that needs them 
and are to be considered as altered across word boundaries. 


RRR RRR RRR KR RK IK KK KKK RRR IK KK KKK KI KKK IK RIKKI KR I RK KG RR aK 


-e se -e “6 we lh ed ed nd i eT ee ed | =e se 


Arithmetic operations 


RRR RK RK RR RRR KIRK KKK RRR IRI IKK KK IKI EKER KERR REAR RK RR RRR RE 


ak ed al eT | 


+ ( ni n2 -- sum ) 

30LE MOVE.W (A6)+,D0 7;>Get n2 
D156 ADD.W DO, (A6) hi +. 12 

- = ( nl n2 -- dif ) ni-n2 
30LE MOVE.W (A6)+,D0 7;Get n2 
9156 SUB.W DO, (A6) sni.- n2 

gta ( ni n2 -- prod ) 
30LE MOVE.W (A6)+,D0 ;Get n2 
C1D6 MULS (A6),D0 m2 * nd 
3C80 MOVE.W DO, (A6) 

ELA ( nl n2 -- quot ) nl/n2 
4C9E 0003 MOVEM.W (A6)+,D0/D1 ;Get operands sign extended 
83C0 DIVS DO,DL sni/n2 
3DOL MOVE.W D1,-(A6) 

pt ( ni n2 n3 -- n-result ) nl*n2/n3 
32LE MOVE.W (A6)+,D1L 7Get n3 
30LE MOVE.W (A6)+,D0 7;Get n2 
CLD6 MULS (A6),D0O -n2*nl -> DO 
8ICL DIVS DL,DO 7n2*n1l/n3 -> DO 
3C80 MOVE.W DO, (A6) 

> /MOD ( ul u2 -- u-rem u-quot ) 
4280 CLR.L DO 
aa LE MOVE.W (A6)+,DL 7;Get u2 
30LE MOVE.W (A6)+,D0 7;Get ul 
80C1L DIVU DL,DO sul/u2 
4840 SWAP DO ;Interchange remainder and quotient 
2D00 MOVE.L DO,-(A6) 7;Return both on stack 

> MOD ( ul u2 -- u-rem ) 
4280 CLR.L DO 
3216 MOVE .W (A6)+,DL >Get u2 
30LE MOVE .W (A6)+,D0 >Get ul 
80CL DIVU Di,DO sul/u2 
4840 SWAP DO ;Interchange remainder and quotient 
3D00 MOVE.W DO, -(A6) 7;Return remainder on stack 
76 
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* /MOD ( ul u2 u3 -- u-rem u-result ) ul*u2/u3 


=e =e “6 


321E MOVE.W (A6)+,D1L *Get u3 
30LE MOVE.W (A6)+,D0 *>Get u2 
CODE MULU (A6)+,D0 eu2*ul -> DO 
80CL DIVU DL,DO su2*ul/u3 -> DO 
4840 SWAP DO 
2D00 MOVE.L DO,-(A6) 
ee. Sig ( ul u2 -- ud ) 
30LE MOVE.W  (A6)+,D0 
CODE MULU (A6)+,D0 
2D00 MOVE.L DO,-(A6) 
> U/MOD ( ud ul -- u-rem u-quot ) 
321E MOVE.W (A6)+,DL Get ul 
20LE MOVE.L (A6)+,D0 Get ud 
80CL DIVU DL,DO sud/ul 
4840 SWAP DO 
2D00 MOVE.L DO,-(A6) 
ee Oe (n -- ntl ) 
5256 ADDQ.W #1, (A6) 
ae fo (n -- n-l ) 
5356 SUBQ.W #1, (A6) 
eee a ( n -- nt+2 ) 
5456 ADDQ.W #2, (A6) 
> 2- (n -- n-2 ) 
5556 SUBQ.W #2, (A6) 
ee (n -- n*¥2 ) 
ELD6 ASL (A6) 
aero (n -- n/2 ) 
EOD6 ASR (A6) 
> ABS ( n -- abs(n) ) 
4A56 TST.W (A6) -Test for negative 
6CO2 BGE.S ABS >Skip next instruction if not 
4456 NEG.W (A6) 
ABS 
> DABS ( d -- abs(d) ) 
4A96 TST.L (A6) >Test for negative 
6CO02 BGE.S DABS >Skip next instruction if not 
4496 NEG. L (A6) 
DABS 
; NEGATE Ca So) 
4456 NEG .W (AG) 
° DNEGATE ( d-- -d ) 
4496 NEG.L (A6) 
> D+ ( dl d2 -- d-sum ) 
20LE MOVE.L (A6)+,D0 
D196 ADD.L DO, (A6) 


(Continued on next page) 
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Forth Com piler (Listing Continued, text begins on page 68) 


Listing One 


20LE 
9196 


548E 


588E 


2016 
4840 
2C80 


2016 
2CAE 


2D40 


3DL6 


2DL6 


3D2E 


2D2E 


3FLE 


3DLF 


3D1L7 


78 


0004 


0004 


0002 


0004 


"=e se we 


~e “e ~e =e “=e ~e se se se se Se Se Se se Ne Ne 


“=e se ™e 


=e se 70 


=e -~e =e 


-e =e 67 


D—- 


Stack manipulation 


MOVE .L 
SUB.L 


DROP 


ADDQ.L 


2 DROP 


ADDQ.L 


SWAP 


MOVE.L 
SWAP 
MOVE.L 


2SWAP 


MOVE.L 
MOVE .L 


MOVE .L 


DUP 


MOVE .W 


2DUP 


MOVE.L 


OVER 


MOVE .W 


20VER 


MOVE.L 


>R 


R> 


MOVE .W 


MOVE.W 


MOVE .W 


( dl d2 -- d-diff ) 


(A6)+,D0 


DO, (A6) 


Ot : aca 


#2, A6 


(a -- 


#4, A6 


(A6),DO 


DO 
DO, (A6) 


dl-d2 


BRK RHR KK KR E KR HREIK KKKIKK IRIKIRKKKR RK K R R R R K RK  ee 


RRR HK KH RHR I IIH KK KK IKK KKK KIKI RI KIKI KEIR EERE KEKE KEE RRR RE RE EK 


( dl d2 -- d2 di ) 


(A6),DO 
4(A6),(A6) 
DO, 4(A6) 
(on s<o non) 
(A6),-(A6) 
(d--dad) 


(A6),-(A6) 


(ni n2 -- ni n2 nl ) 


2(A6),-(A6) 


QE ag ins SL G2: Ab) 


4(A6),-(A6) 
(n -- 
(A6)+,-(A7) 
Oe BY: oe, 
(A7)+,-(A6) 
Facet Ue, 
(A7),-(A6) 


( -- n ) 


Store on return stack 


Remove from return stack 


Copies top of return stack 


Copies second item on return stack 


(Continued on page 80) 
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-  Prashasnees see 
| Program three times faster 
with Instant-C™ 


Instant-C™ is an optimizing interpreter for C that 

makes programming three or more times faster. It 

eliminates the time wasted by compilers. Many 

repetitive tasks are automated to make program- 

ming less tedious. 

™@ Two seconds elapsed time from completion of 
editing to execution. 

& Symbolic debugging; single step by statement. 

H Compiled execution speed; 40 times faster than 
interpreted Basic. 

@ Full-screen editor integrated with compiler; 
compile errors set cursor to trouble spot. 

™@ Directly generates .EXE or .CMD files. 

Hi Follows K & R—works with existing programs. 
Comprehensive standard C library with source. 

M@ Integrated package; nothing else needed. 

W Works under PC-DOS*, MS-DOS*, CP/M-86*. 


More productivity, less frustration, better programs. 
Instant-C™ is $500. Call or write for more info. 


Elegance 


Power 
Speed 


€ Users’ Group 
Supporting All C Users 


415 E Euclid 
McPherson, KS. 67460 





Ratic nal me Moai Circle no. 18 on reader service card. | 
Systems, Inc. Natick, Mass. 01760 


Trademarks: MS-DOS (Microsoft Corp.), PC-DOS (IBM), CP/M-86 (Digital Research, 
Inc.), Instant-C (Rational Systems, Inc.) 


Circle no. 67 on reader service card. 





NEW Ver. 2.2 
Easier — More Power 





ADVANCED SCREEN MANAGEMENT 
MADE EASY 














































ADVANCED FEATURES SIMPLIFY ¢ IMPROVE 
¢ Unlimited windows and text files | ° Menus ¢ Help files 
e Word wrap, auto scroll e Data screens e Editors 
e Horizontal and vertical scroll e Form printing e Games 
e Fast! + No flicker or snow ALL DISPLAYS 
e No memory in screen buffers 
e palate color control C SOURCE MODULES FOR 
e Auto memory management . 
e Save and move window images Pop-up nenus. MuipSs wus? 
g displays, label printer, Cursor 
e Easy overlay and restore control, text mode bar graphs. 
e Format and print with windows plus complete 
i NDO , e Highlighting building block subroutines 
WI Ww WINDOWS++ DESIGNED FOR 
FOR & Much more than a window PORTABILITY 
display system. Windows for Minimal dependence on 
SETS THE STANDARD ie an rat toolkit IBM BIOS and 8086 ASM 
FOR THE IBM PC + COMPATIBLES that simplifies all screen 
 attina CCCBS: maeagement f5Ks. FULL SOURCE AVAILABLE 


DeSmet C, Microsoft C NO ROYALTIES 














WINDOWS FORC $150 ~—s 4 PROFESSIONAL SOFTWARE TOOL FROM 802-848-7738 
(specify compiler & version) 
Demo disk and manual $ 30 CREATIVE SOLUTIONS Master Card & Visa Accepted 


3 Shipping $2.50 
21 Elm Ave, Box D9, Richford, VT 05476 VT residents add 4% tax 


(applies toward purchase) 
Dealer Inquires welcome 






Circle no. 16 on reader service card. 





fib 


Forth Compiler (Listing Continued, text begins on page 68) 


Listing One 
3D2F 0002 MOVE.W 2(A7),-(A6) 
J ( -- n ) Copies third item on return stack 
3D2F 0004 | MOVE.W 4(A7),-(A6) 
Push a constant onto the stack ( -- n ) 
3D3C 0000 MOVE.W #0,-(A6) 
; Push a double constant onto the stack ( --d ) 
2D3C 0000 MOVE.L #0,-(A6) 
0000 


BERR K RRR IK RRR RIK RR KK RR IRIE RIK KHIR IRI IK IK REIKI IIR ERR RK RR 


Memory and I/O operations 


BRR RRR RK KR RI RK HR RR IRI IRR KIRK IRR IKI ERRATA EKER RAE RE REE 


Note.. all references to memory are relative to A5 unless otherwise 
specified. 


=e se 7-e Oe Te lUM Ohl CUNO =e se “ee 


(‘n adr -- ) 
Store in variable 


ad a dl al} 
— 


30LE MOVE.W (A6)+,D0 
3B9E 0000 MOVE.W (A6)+,0(A5,D0.W) 
8 ( adr -- n ) 
: Get from variable 
3016 ‘MOVE.W  (A6),D0 
3CB5 0000 MOVE .W 0(A5,D0.W), (A6) 
eae ta ( ¢c adr -- ) 
: Store in variable 
30LE MOVE.W (A6)+,D0 
321E MOVE.W (A6)+,DL 
LB8L O000 MOVE.B D1,0(A5,D0.WwW) 
* 6G ( adr --c ) 
: Get from variable 
3016 MOVE .W (A6),D0 
4241 CLR.W DL 
1235 0000 MOVE.B 0O(A5,D0.W),D1 
3C8L MOVE.W D1, (A6) 
eens 2 Rs 6 5 ae 
: Store in variable 
30LE MOVE .W (A6)+,D0 
2B9E 0000 MOVE.L (A6)+,0(A5,D0.W) 
oS ( adr -- qd ) 
: Get from variable 
30LE MOVE.W (A6)+,D0 
2D35 0000 MOVE.L 0O(A5,D0.W),-(A6) 
> +! (n adr -- ) 
; Add n to the loaction pointed to by adr 
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30LE 
32LE 
D375 


303C 
D056 
DL56 


303C 
D156 


303C 
3216 
E541 
DO41L 
3C80 


30LE 
321E 
305E 
DLCD 
6002 
L0CO 
51C9 


305E 
309E 


3056 
3C90 


0000 


0000 


0000 


0000 


FFFC 


=e se ~e “oe “0 “8 


=e ™e 


=e 7e Te TO 


=e se 6S Oe)lUNOhUOlCUF 


~e se =e se “Oe 


SOL 
$02 


/ 


*k* 


=e “ce se oe “ee “8 SO =e -~e “e se “Oe “8 SE ™ 


=e “6 ~e “6 


~e “8 se “OE 


MOVE.W (A6)+,D0 
MOVE.W (A6)+,DL 
ADD.W DL,0(A5,D0.W) 


M68ARY xxxx (on -- ) defines an array xxxx n words long 

XXXX ( n -- adr ) returns the address of the n-th element of xxxx 
MOVE.W #0,D0 ;Array base address 
ADD .W (A6),D0O >n + address 
ADD.W DO, (A6) -2*n + address 

M68CARY xxxx ( n -- ) defines an array xxxx n bytes long 

XXXX ( n -- adr ) returns the address of the n-th element of xxxx 
MOVE.W #0,D0 sArray base address 
ADD.W DO, (A6) *>n + address 

M68DARY xxxx (n -- ) defines an array xxxx n double words long 

EXE ( n -- adr ) returns the address of the n-th element of xxxx 
MOVE.W  #0,D0 sArray base address 
MOVE.W (A6),D1L 7n 
ASL.W #2,D1L 24*n 
ADD.W Di,DO -4*n + address 


MOVE.W_ DO, (A6) 


FILL ( adr n b -- ) 
Fills n bytes of memory beginning at the variable pool 
relative address with the value b. 


MOVE.W (A6)+,D0 7Get b 

MOVE.W (A6)+,DL -Get n 

MOVEA.W (A6)+,A0 -Get variable pool relative address 
ADDA.L A5,A0 >Compute actual address 

BRA.S $02 -Enter loop at proper point 

MOVE.B- DO, (AO)+ >Store b and increment address 

DBF DL,$OLl -Repeat n times 


be REE ERK E REE EER EERIE REI EIR IIIA II ARIA E ERR EIR EEI EIR E RHR EERE EER EE ERES 


Note.. the following words reference absoute memory addresses. They should 


only be used to reference data and I/O devices that are fixed and 
outside the environment of the compiler. Under NO conditions should 
these operations be used to reference data structures created by the 
compiler. The compiler data structures are relocatable and there is 
no easy way to find the current location of these data structures. 
The other operators provided above are much more convenient and 
preserve the relocatability. 


AW! ( n short -- ) 
Store n at the location specified by the short address. 
MOVEA.W (A6)+,A0 >Get address 
MOVE.W  (A6)+, (AO) ;Store n 
AW@ ( short -- n ) 
Get n from the location specified by the short address. 
MOVEA.W (A6),A0 *Get address 
MOVE.W (AO), (A6) >Get n 
AL! ( n long -- ) 


Store n at the location specified by the long address. 


(Continued on next page) 
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Forth Com piler (Listing Continued, text begins on page 68) 


Listing One 
205E MOVEA.L (A6)+,A0 ;Get address 
309E MOVE.W (A6)+, (AO) ;Store n 

> AL@ ( long -- n ) 

; Get n from the location specified by the long address. 
205E MOVEA.L (A6)+,A0 7;Get address 
3DL0 MOVE.W (AO),-(A6) ;Get n 

; CAW! ( c short -- ) 

; Store c at the location specified by the short address. 
305E MOVEA.W (A6)+,A0 ;Get address 
30LE MOVE.W (A6)+,D0 7;Get c 
1080 MOVE.B_ DO, (AO) ;Store c 

; CAW@ ( short -- c ) 

; Get c from the location specified by the short address. 
3056 MOVEA.W (A6),A0 ;Get address 
4240 CLR.W DO 
LOLO MOVE.B (AO),DO 7;Get c 
3C80 MOVE.W DO, (A6) 

go CALI ( ¢ long -- ) 

; Store c at the location specified by the long address. 
205E MOVEA.L (A6)+,A0 7;Get address 
30LE MOVE.W (A6)+,D0 7;Get c 
1080 MOVE.B- DO, (AO) ;Store c 

; CALC ( long --c ) 

: Get c from the location specified by the long address. 
205E MOVEA.L (A6)+,A0 7Get address 
4240 CLR.W 2.3 eae 
LOLO MOVE.B (AO),DO ;Get c 
3D00 MOVE.W DO,-(A6) 

; 2AW! ( d short -- ) 

; Store d at the location specified by the short address. 
305E MOVEA.W (A6)+,A0 7;Get address 
209E MOVE.L (A6)+, (AO) ;Store d 

; 2AW@ ( short -- d ) 

: Get d from the location specified by the short address. 
305E MOVEA.W (A6)+,A0- 7Get address 
2DL0 MOVE.L (AO),-(A6) 7Get d 

a 0 Dees ( d long -- ) 

; Store d at the location specified by the long address. 
205E MOVEA.L (A6)+,A0 7Get address 
209E MOVE.L (A6)+, (AO) ;Store d 

; 2AL@ ( long -- 4 ) 

; Get d from the location specified by the long address. 
2056 MOVEA.L (A6),A0 7;Get address 
2C90 MOVE.L (AO), (A6) 7;Get d 


AFILL ( long adr nb —- ) 
Fills n bytes of memory beginning at the long absolute 
address with the value b. 


se “6 se fe 


(Continued on page 84 
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ST-FORTH $35 


For your IBM PC, XT, 
or Compatible Computer 


A complete FORTH development system for 
beginners or experienced users 


= 100% FORTH-83 Standard System 

= Written entirely in FORTH. All source code is provided 
= Powerful easy-to-use editor 

= Complete Assembler with Intel Mnemonics 


= Extensive MS-DOS/PC-DOS Interface 
(DOS 1.x or 2.x) 


= Choice of Block Storage: mapped to disk, into DOS 
file, or in RAM 


= Save environment to a DOS COM file 
= Beginners pkg. $60 CA residents add sales tax 


Oo | Sunset 
Technology 


1954 Menalto Ave. 
Menlo Park, CA 94025 
(415) 325-3680 


Circle no. 86 on reader service card. 


Setting the standard in 
checkbook and budget management 
for home and office. 


¢Display, add and change entries with full on-screen editing options ® 
eSingle entry systeme 
eUnlimited categories ® 
e Divide entries between multiple categories® 
eFlexible search and printing® 
eCommands in plain Englishe 


S 
For CP/M-80 2.2, MS-DOS and PC-DOS 
Only $74.95 ($54.95 without check printing capability) 


Visa and MasterCard accepted 
Dealer/Distributor/Bundling rates available 


CDE SOFTWARE 


2463 McCready Avenue « Los Angeles, CA 90039 
Telephone: (213) 661-2031 
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MicroMotion 





of MicroMotion Forth. 


e Meets all provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 


e Uses the host operating system file structure (APPLE 
DOS 3.3 & CP/M 2.x). 


@ Built-in micro-assembler with numeric local labels. 


e A fullscreen editor is provided which includes 16 x 
64 format, can push & pop more than one line, 
user definable controls, upper/lower case key- 
board entry, ACOPY utility moves screens within & 
between lines, line stack, redefinable control 
keys, and search & replace commands. 


e Includes all file primitives described in Kernigan 
and Plauger’s Software Tools. 


e@ The input and output streams are fully redirectable. 


e Theeditor, assembler and screen copy utilities are 
provided as relocatable object modules. They 
are brought into the dictionary on demand and 
may be released with a single command. 


e Many key nucleus commands are vectored. Error 
handling, number parsing, keyboard translation 
and so on can be redefined as needed by user 
programs. They are automatically returned to 
their previous definitions when the program is 
forgotten. 


@ The string-handling package is the finest and 
most complete available. 


e Alisting of the nucleus is provided as part of the 
documentation. 


e@ The language implementation exactly matches 
the one described in FORTH TOOLS, by Anderson 
& Tracy. This 200 page tutorial and reference 
manual is included with MasterFORTH. 


e Floating Point & HIRES options available. 
e Available for APPLE II/Il+/lle & CP/M 2.x users. 
e MasterFORTH — $100.00. FP & HIRES -S40.00 each 


e Publications 
e@ FORTH TOOLS —- $20.00 


@ 83 International Standard — $15.00 


e@ FORTH-83 Source Listing 6502, 8080, 8086 - 
$20.00 each. 






Circleno. 42 onreader service card. 


MasterFORTH 


It's here — the next generation 


Contact: 


MicroMotion 
42077 Wilshire Blvd., Ste. 506 

Los Angeles, CA 90025 
(213) 821-4340 













Forth Compiler (Listing Continued, text begins on page 68) 


Listing One 

30LE MOVE.W (A6)+,D0 >Get b 

321E MOVE.W (A6)+,DL ;Get n 

205E MOVEA.L (A6)+,A0 7;Get absolute address 

6002 BRA.S $02 ;Enter loop at proper point 
LOCO SOL MOVE.B- DO, (AO)+ ;Store b and increment address 
SLC9..FPFFC ~ $02 DBF DE, Sot ;Repeat n times 


‘ 


WRK KK RRR KKK KKK HK HK HK KR RRR RR KI KIRK KK IKK IK KK KKK KKK KKK EER RR KEIRA KK 


Comparison operations 


RR KKK KKK RRR KKK KKK KKK RRR RHE KKK KKK KKK KEKE KK KKK KKK KKK KK KK KKK RK 


a ed ad ed ed et et eT 





MIN ( ni n2 -- n-min ) 

30LE MOVE.W (A6)+,D0 *n2 
3216 MOVE.W (A6),D1 <7 1 
BO41 CMP .W Di,DO sn2-nl 
6FO2 BLE.S MIN 
CL4L EXG DO, DL ;Swap if DL < DO 
3C80 MIN MOVE.W DO, (A6) 

> MAX ( nl n2 -- n-max ) 
30LE MOVE.W (A6)+,D0 “n2 
3216 MOVE.W (A6),DL snl 
BO41 CMP.W  D1,DO sn2-n1L 
6CO02 BGE.S MAX 
Ci4i EXG DO; Di 7;Swap if DL > DO 
3C80 MAX MOVE.W DO, (A6) 

ae Cai a2 ee FS) if nl = n2 then f is true 
30LE MOVE.W (A6)+,D0 *n2 
321E MOVE.W (A6)+,DL oT t 
B240 CMP .W DO, DL sni-n2 
5.760 SEQ DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W DO,-(A6) 

PR ( ni n2 -- £ ) if ni < n2 then f is true 
30LE MOVE .W (A6)+,D0 on2 
321E MOVE.W (A6)+,DL Tt 
B240 CMP .W DO, DL snl-n2 
5DCO SLT DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W  DO,-(A6) 

> Comin A= E09 tf nf >: n2< then: £18 “true 
SOULE MOVE .W (A6)+,D0 “n2 
321E MOVE.W (A6)+,DL snl 
B240 CMP .W DO, Di sni-n2 
5 ECO SGT DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W  DO,-(A6) 

pas (at Ao ws =4 if di = d2 then £f is true 
2OLE MOVE .L (A6)+,D0 7a2 
Zee MOVE .L (A6)+,D1L sal 
B280 CMP .L DO, DL -d1l-d2 
5 FOU SEQ DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W_ DO, -(A6) 
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ee ks ( dl d2 -- £ ) tf. al < d2 then. £ is'.true 
20LE MOVE.L (A6)+,D0 7a2 
221E MOVE.L (A6)+,D1L cdl 
B280 CMP .L DO, DL -dil-d2 
5 DCO SLT DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W_ DO,-(A6) 
> D> ( dl d2 -- £ ) if di > d2 then f is true 
2OLE MOVE.L (A6)+,D0 °d2 
221E MOVE.L (A6)+,DL sal 
B280 CMP ..L DO, DL sdl-d2 
5 ECO SGT DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W_ DO,-(A6) 
> O= (n -- £ ) LE then is true 
> Alternate name is NOT 
4A5E TS... 0 (A6)+ 
57C0 SEQ DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W  DO,-(A6) 
BK (n-- £ ) ia then is true 
4SA5E TST .W (A6)+ 
5DCO SLT DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W DO,-(A6) 
> O> (n-- £ ) if then is true 
4A5E TST .W (A6)+ 
5ECO SGT DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W DO,-(A6) 
> DO= (d-- £ ) if then is true 
4A9E TST. b (A6)+ 
57C0 SEQ DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W DO,-(A6) 
> DO< (dad-- £ ) if then is true 
4AIE picid hee (A6)+ 
5DCO SLT DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W DO,-(A6) 
>  DO> (d-- £ ) if then is true 
4A9E To. «i (A6)+ 
5ECO SGT DO 
0240 OOOL ANDI.W #1,D0 
3D00 MOVE.W  DO,-(A6) 
> AND ( ul u2 -- and ) 
301E MOVE.W (A6)+,D0 
C156 AND .W DO, (A6) 
‘ OR ( ul u2 -- or ) 
30LE MOVE.W (A6)+,D0 
8156 OR.W DO, (A6) 


(Continued on next page) 
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Forth Com piler (Listing Continued, text begins on page 68) 
Listing One 


XOR ( ul u2 -- xor ) Exclusive OR 
30LE MOVE.W (A6)+,D0 
BL56 EOR.W DO, (A6) 

fs ( u -- compl ) One’s compliment 
4656 NOT .W (A6) 


HK KKK KKK KKK KKK KKK KERR EKER KKK KER KEK KERR EK KEKE KK KKK KKK KKK KKK KR AK K RKRR 


Control operations 


HHH KKK KEKE KEKE KKK KEKE KER KEKE KEKE KEKE KEKE KEKE KEKE KEKE KK KKK KKK RR RRR KS 


Note.. all control structures use the PC relative addressing mode 
this makes the code position independent. 


IF ( £ -- ) 
Takes an entry off the stack and branches if the value 


=e =-e@ se se “@ ~e@ “0 “oe “6 “@ “0 Se Se WO 


is FALSE (0). 


=e se 


4A5E TST .W (A6)+ ;Remove and test flag 
6700 **** BEQ ELSE 
ELSE ( -- ) 


Branches around the else part and provides a target for the 
false branch of the if part. 


=e se “08 se Me 


OOOO *s** BRA ENDIF 
ELSE 
; ENDIF ( -- ) 
; Provides a target for the branch around the else Pert, “Ane: LE 
; the else is missing provides a target for the false branch of 
; the if part. 
ENDIF 
; BEGIN ( -- ) 
; Provides a target for a branch back from UNTIL, AGAIN, REPEAT. 
BEGIN 
. ». NTE ( £ -- ) 
; Takes an entry off the stack and branches to BEGIN if the 
; value is FALSE (0). 
4A5E TST .W (A6)+ 7Remove and test flag 
6.700 .**** BEQ BEGIN 
4 AGAIN ( -- ) 
; Always branches to BEGIN 
6000. **** BRA BEGIN 
; WHILE ( £ -- ) 
; Takes an entry off the stack and branches to REPEAT if the 
; value is FALSE (0). 
4A5E TST.W (A6)+ ;Remove and test flag 
6700 2% BEQ REPEAT 


(Continued on page 88) 
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RP/M.. 


By the author of Hayden's "CP/M Revealed." 












New resident console processor RCP and new 
resident disk operating system RDOS replace CCP 
and BDOS without TPA size change. 



















User 0 files common to all users; user number 
visible in system prompt; file size and user 
assignment displayedby DIR; cross-drive command 
file search; paged TYPE display with selectable 
page size. SUBMIT runs on any drive with multiple 
command files conditionally invoked by CALL. An 
automatic disk flaw processing mechanism _ isolates 
unuseable sectors. For high capacity disk systems 
RDOS can provide instantaneous directory access 
and delete redundant nondismountable disk logins. 
RPMGEN andGETRPMautomatically self-install RP/M 
on any computer currently running CP/M® 2.2. 
Source pregram assembly listings of RCP and RDOS 
appear in the RP/M user's manual. 


Manual alone $55; manual with RPMGEN.COM and 
GETRPM.COM with utilities on 8" SSSD $75. 
Shipping $5 ($10 nonUS). MC, VISA. 
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“High performance to cost ratio... 





Programming Chips? 


Projects develop profitably with development hardware /software from GTEK. 





MODEL 7956 ..... 2 te 
(with RS232 option) ... . $1099. 
MODEL 7956 (stand alone) $ 879. 
GTEK’s outstanding Gang Pro- 
grammer with _ intelligent 
algorithm can copy 8 EPROMS at 
a time! This unit is used in a pro- 
duction environment when pro- 
gramming a large number of chips 





MODEL 7228 - $549 


This model has all the features 
of Model 7128, plus Intelligent 
Programming Algorithims. It 
supports the newest devices 
available through 512Kbits; pro- 
grams 6x as fast as_ standard 
algorithims. Programs the 2764 in 
one minute! Supports Intel 2764A 


is required. It will program all 
popular chips on the market 
through the 27512 EPROMS. It 
also supports the Intel 2764A & 
27128A chips. It will also program 
single chip processors. 


& 27128A chips. Supports 
Tektronics, Intel, Motorola and 
other formats. 


EPROM & PAL 


PROGRAMMERS 


—These features are standard from GTEK— 
Compatible with all RS232 serial interface ports * Auto select baud rate ¢ With or without hand- 
shaking ° Bidirectional Xon/Xoff ¢ CTS/DTR supported * Read pin compatible ROMS ¢ No per 
sonality modules * Intel, Motorola, MCS86 Hex formats ¢ Split facility for 16 bit data paths ¢ 
Read, program, formatted list commands ¢ Interrupt driven — program and verify real time while 
sending data * Program single byte, block, or whole EPROM ® Intelligent diagnostics discern bad 
and/or erasable EPROM ® Verify erasure and compare commands ¢ Busy light ¢ Complete with 
Textool zero insertion force socket and integral 120 VAC power (240 VAC/50Hz available) « 





MODEL 7128 - $429 
This model has the highest 
The Model 7324 programs all || performance-to-price-ratio of any 
MMI, National and TI 20 and 24 || unit. This is GTEK’s most popular 
pin PALs. Has non-volatile || unit! It supports the newest 
memory. It operates stand alone || devices available through 
or via RS232. 256Kbits. 


MODEL 7316 Pal Programmer ............... 00-0000 sc eee ues $ 599 
Programs Series 20 PALs. Built-in PALASM compiler. 


DEVICES SUPPORTED 


by GTEK’s EPROM Programmers 


MODEL 7324 - $1199 
This unit has a built-in compiler. 


NMOS NMOS CMOS EEPROM MPU’S 
2758 2764A 2508 68764 27C16 5213 12816A 8748 8741H 
2716 27128 2516 8755 27C16H § 5213H 12817A 8748H 8744 
2732 27128A 2532 5133 27C32H  52B13 8749H 8751 
2732A 27256 2564 5143 27C64 X2816 8741 68705 
2764 27512 68766 27C256 48016 8742H 


UTILITY PACKAGES 


GTEK’s PGX Utility Packages will allow you to specify a range of addresses to 
send to the programmer, verify erasure and/or set the EPROM type. The PGX Utili- 
ty Package includes GHEX, a utility used to generate an Intel HEX file. 

PALX Utility Package — for use with GTEK’s Pal Programmers — allows 
transfer of PALASM® source file or ASCII HEX object code file. 

Both utility packages are available for CPM,° MSDOS,® PCDOS,® ISIS® and 
TRSDOS® operating systems. Call for pricing. 


AVOCET CROSS ASSEMBLERS 


These assemblers are available to handle the 8748, 8751, Z8, 6502, 68X and other 
DiapM chinese They are available for CPM and MSDOS computers. When order- 
ing, please specify processor and computer types. 


ACCESSORIES 


Model 7128-L1, L2, L2A ............ XASM (for MSDOS).......... $250. 
IR Pare cir (OEM Quantity) $259. U/V Eraser DE-4............. $ 80. 
Model 7126-24 oe os $329. RS232 Cables; 24 oS ee 8 $ 30. 
Cross Assemblers ............ $200. 8701 Agate. et 2 Ns FN $174. 
SIM48 Simulator ..... Call for pricing BTGG Fi Les, $135. 
PGX Utilities........ Call for pricing 48 Family Adapter............ $ 98. 
PAI Fo. SS Call for pricing 68705 Adapter....... Call for pricing 


Development Hardware/Software 
P.O. Box 289, Waveland, MS 39576 
601/467-8048 

INC. 


GTEK, PALASM, CPM, MSDOS, PCDOS, ISIS, and TRSDOS 
are all registered trademarks. 
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Forth Compiler (Listing Continued, text begins on page 68) 


Listing One 
; REPEAT i) 
; Always jumps back to begin and provides a target for WHILE. 
SO00 + ==* BRA BEGIN 
REPEAT 
> po ( limit index -- ) 
: Remove the index and limit from the data stack and put on 
; the return stack. Provides a target for LOOP and +LOOP 
2FLE MOVE.L (A6)+,-(A7) 
DO 
; LOOP Coes) 
" Increment the index and test for end of the loop. 
5257 ADDQ.W #1, (A7) ;Increment index 
4C97 0003 MOVEM.W (A7),DO/DL *Get index (DO) and limit (DL) 
BO4L CMP .W Di,DO 
6DO00 **** BLT DO ;Continue if (index - limit) < 0 
588F ADDQ.L #4,A7 ;Drop index and limit 
; +LOOP (n-- ) 
: Add n to the index then 
: IF n > 0 then continue if (index - Limits <O 
; ELSE continue if (index - limit) >= 0. 
301E MOVE.W (A6)+,D0 7;Get increment 
D157 ADD.W DO, (A7) ;Update index 
4C97 0006 MOVEM.W (A7),DL/D2 7Get index (DL) and limit (D2) 
4A40 TST .W DO *Test for negative 
6E04 BGT.S SOL 
B441 CMP .W Di; D2 7Test (limit - index) 
6002 BRA.S $02 
B242 SOL CMP.W D2,D1L 7Test (index - limit) 
6OD00 !* 248. $02... BET: DO ;Continue if (condition tested) < 0 
588F ADDQ.L #4,A7 ;Drop index and limit 
; LEAVE eres, : 
; Terminate loop by seting limit equal to index 
3F57 0002 MOVE.W  (A7),2(A7) 
; Routines for accessing external programs and subroutines. 
2. JSRW ( short address -- ) 
; Jump to subroutine using short address from tos 
305E MOVEA.W (A6)+,A0 
4E90 JSR (AO) 
2 5 aISR-L ( long address -- ) 
; Jump to subroutine using long address from tos 
205E MOVEA.L (A6)+,A0 
4E90 JSR (AO) 
> JIJMP.W ( short address -- ) 
; Jump to location pointed to by short address on stack 
305E MOVEA.W (A6)+,A0 
4EDO JMP (AO) 
88 


(Continued on page 90) 
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SUPER FORTH 64 


TOTAL CONTROL OVER YOUR COMMODORE-64” 
USING ONLY WORDS 
MAKING PROGRAMMING FAST, FUN AND EASY! 


MORE THAN JUST A LANGUAGE... 
A complete, fully-integrated program development system. 
Home Use, Fast Games, Graphics, Data Acquisition, Business, Music 
Real Time Process Control, Communications, Robotics, Scientific, Artificial Intelligence 


A Powerful Superset of MVPFORTH/ FORTH 79 + Ext. for the beginner or professional 



































© 20 to 600 x faster than Basic © SPRITE-EDITOR 
@ 1/4 x the programming time ® Access all C-64 peripherals including 4040 
® Easy full control of all sound, hi res. drive and EPROM Programmer. 
graphics, color, sprite, plotting line & ®@ Single disk drive backup utility 
circle ® Disk & Cassette based. Disk included 
® Controllable SPLIT-SCREEN Display @ Full disk usage — 680 Sectors 
@ Includes interactive interpreter & compiler © Supports all Commodore file types and 
@ Forth virtual memory Forth Virtual disk 
@ Full cursor Screen Editor ® Access to 20K RAM underneath ROM 
® Provision for application program areas 
distribution without licensing ® Vectored kernal words 
® FORTH equivalent Kernal Routines @ TRACE facility 
® Conditional Macro Assembler ® DECOMPILER facility 
© Meets all Forth 79 standards+ @ Full String Handling 
® Source screens provided ® ASCII error messages 
© Compatible with the book “Starting Forth” © FLOATING POINT MATH SIN/COS & SQRT 
by Leo Brodie ® Conversational user defined Commands 
® Access to all |/O ports RS232, IEEE, ® Tutorial examples provided, in extensive 
including memory & interrupts 261 page cross referenced manual 
® ROMABLE code generator @ INTERRUPT routines provide easy control 
@ MUSIC-EDITOR of hardware timers, alarms and devices 
@ TURTLE GRAPHICS © USER Support 
SUPER FORTH 64° is more SUPER FORTH 64° compiled code 
powerful than most other computer languages! becomes more compact than even assembly code! 


« SUPERFORTH64 + 






LISP 










LOGO > 
& Cc ° 
2 5 
> PASCAL 2 
E BASIC 2 
* FORTRAN o 


ASSEMBLER 



















Power of Languages Constructs Program Functionality 
T, i rl | 
A SUPERIOR PRODUCT Call: ee 
in every way! At a low Pick ceders<als | 
sic 6f only (415) 651-3160  icdoeek betediola Actes 
Dealer inquiries invited | 
$96 PARSEC RESEARCH _ [<évzsisents must inciode tox | 
Drawer 1776, Fremont, CA 94538 —— Fee 
® PARSEC RESEARCH (Established 1976 Commodore 64 & VIC-20 TM of Commodore 
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THE MOST ADVANCED VERSION OF FORTH 
IS NOT ON THIS 5 1/4” DISK. 


IT’S UNDERNEATH IT! 


When you pay $300 for some languages all you get is a $3.00 disk. When you buy the 
NMIX-0012 RSC-FORTH System from New Micros, Inc. you not only get the language, you 
get a complete computer system. It has features that you can't expect from a disk based 
language, like an RS 232 serial interface, 40 individually programmable input/output lines 
(5 parallel ports), two counter/timers, RAM. ROM and a EEPROM/EPROM programmer. For 
that matter, disks don’t usually come with their own power supplies, and almost none are 
packaged in rugged metal cases! You would expect a disk to come with hundreds of pages 
of documentation — our system certainly does. With a disk, you have to tie up your whole 
computer to run the program. After storing your program in our system, it can be dedicated 
to a task without the support of your PC, or you can communicate with it over the same serial 
channel used to program it. On top of all this our FORTH has advanced features, like built-in 
target compilation, CASE statements, PROM programming words and, believe it or not, disk 
access functions. The NMIX-0012 is 100 millimeters on a side, smaller than a disk, priced 
at $290 complete. The ‘‘100 Squared’™ is the logical choice! Substantial quantity discounts. 








ORDER NOW FROM: New Micros, Inc 

808 Dalworth 
Grand Prairie, Texas 75050 
(214) 642-5494 
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edward k. ream 


FULL SCREEN EDITOR 
with 


FULL SOURCE CODE in C 


for 


CP/M 68K or CP/M 8 





e RED is a powerful yet simple full screen text 
editor for both programmers and writers. 


RED features 17 commands including block 
move, block copy, search and substitute. — 


RED comes with full source code in 
standard C. RED works as is with the 
BDS C, Aztec CII and Digital Research 
Compilers. 


RED supports a// features of your terminal. 
You tailor RED to your terminal with an 
easy-to-use configuration program. 


RED handles files as large as your disk. 


RED is guaranteed. If for any reason you 
are not satisfied with RED, your money will 
be refunded promptly. 


Price: $95. 


Call today for more valuable information: 
(608) 231-2952 


To order, send a check or money order to: 


Edward K. Ream 
1850 Summit Avenue 
Madison, Wisconsin 53705 
Your order will be mailed to you within one week. Sorry, I can 
not handle credit cards. Please do not send purchase orders 
unless a check is included. RED is distributed only on 8 inch 


CP/M format disks, but other disk formats are available 
through third parties. 


Dealer inquiries invited. 





Forth Compil @r (Listing Continued, text begins on page 68) 
Listing One 


tL JP Ts ( long address -- ) 

: Jump to location pointed to by long address on stack 
205E MOVEA.L (A6)+,A0 
4EDO JMP (AO) 


-e |6™e 


Initialization operations 


a ed ed ad a ad dk ed St ee | =e 


A5LD Ioad the variable pool pointer 
2A7C 0000 MOVEA.L #0,A5 
0000 
; A6LD Load the data stack pointer 
2C7C 0000 MOVEA.L #0,A6 
0000 
; A7LD Load the return stack pointer 
2E7C 0000 MOVEA.L #0,A7 
0000 
END 
Listing Two 
Screen # 0 
O ( M68K Cross compiler -- Copyright Notice ) 
aE 
2 FORTH based cross compiler for the Motorola 68000 microprocessor 
3 
4 Copyright 1983 by Raymond L. Buvel 
5 Box 3071 
6 Moscow, ID 83843 
7 
8 All rights reserved except as stated below. 
9 
{0 This compiler may be distributed to anyone provided this 
{1 copyright notice is included and the distribution is not for 
12 profit. Contact me concerning royalties for commercial 
13 distribution. There is no royalty on code produced with this 
{4 compiler provided the compiler itself is not SOLD as an integral 
{5 part of a software package. 


Screen # 8 


0 


( M68K Cross Compiler -- Vocabulary definition ) 


1 VOCABULARY M68K IMMEDIATE 


2 


90 


M68K DEFINITIONS 


Note.. the following words initialize the registers of the M68000 


KHEKEKKEKKKKKKKEKKKKE KKK KKK KERKEKKEKRKEKEKKKEKE KEKE KKK KKK KKK KKK KKK KKK KKK KKK 


RREEKKEKKKKKKKKKKKKKKKRKKKKKKKKKKKRKKKKKKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


End Listing One 
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HEX 

--> 

Note.. the compilation words listed below are contained in 
the FORTH vocabulary and cause entries to be made in the 
M68K vocabulary. 


é 

4 

5 

6 

i 

8 

9 :M68K :M68MAC M68VAR M68DVAR M68CON M68DCON 
10 M68ARY M68DARY M68CARY 
LE 
2 
13 
14 
£5 


Screen # 9 


O ( M68K Cross Compiler -- Variable definitions ) 

1 M68K DEFINITIONS 

2 ( Code pointer in M68000 -- note relative addressing ! ) 
3 O VARIABLE M68PCODE 

4 ( Variable pool pointer in M68000 -- relative to A5 ) 

5 O VARIABLE M68PVAR 

6 ( Entry point of the subroutine being defined ) 

7 O VARIABLE M68ENTRY 

8 ( Parameter field address [ in HOST ] of word being defined ) 
9 O VARIABLE M68PFA 
LQ: =+> 
LL 
12 
i3 
14 
15 


Screen # LO 


O ( M68K Cross Compiler -- Variable definitions ) 
1 M68K DEFINITIONS 
2 ( Error checking variables ) 
3 0 VARIABLE M68?MAC ( True if in a MACRO definition ) 
4 0 VARIABLE M68K? ( True if in a SUBROUTINE definition ) 
5 0 VARIABLE M68?PAIRS ( Count of incomplete branching ops. ) 
6 = 
i 
8 
9 
10 
LL 
12 
13 
14 
ES 


Screen # Ll 


O ( M68K Cross Compiler -- Error checking ) 

1 M68K DEFINITIONS 

2 : ?M68PAIRS ( Check for unbalanced control structures ) 
2 M68?PAIRS @ IF : 

4 ." Error! unbalanced control structure " 

5 O M68?PAIRS ! ABORT ENDIF ; 

6 : ?M68K ( Check for errors in compiling a subroutine ) 
7 M68K? @ O= IF ( Check if compiling a subroutine ) 
8 ." Error! not compiling a SUBROUTINE " 

9 ABORT ENDIF ; 

{0 : ?M68MAC ( Check for errors in compiling a macro ) 

LL M68?MAC @ O= IF ( Check if compiling a macro ) 
12 ." Error! not compiling a MACRO " 

Be ABORT ENDIF ; 

14 --> 

£5 


Screen # 12 


O ( M68K Cross Compiler -- Compile constants ) 
1 M68K DEFINITIONS 
2(n--c ) 


(Continued on next page) 
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Forth Compiler (Listing Continued, text begins on page 68) 
Listing Two 


: HIGH-BYTE 8 SHIFT ; ( Leave high byte of n on stack ) 
Girne: 2 

: S$CON DUP HIGH-BYTE C, C, ; ( Compile const high-byte first ) 
Jae: Cee ame | 


SDCON $CON ( Compile high word ) 
SCON ; ( Compile low word ) 
--> 
10 Note... to transport the compiler to other FORTH systems the 
{! word HIGH-BYTE must be written so that it takes the number off 
{2 the top of the stack and leaves the high byte of that number. 
13 On some FORTH systems HIGH-BYTE may have to be a CODE 
14 definition. 


Screen # 13 


O ( M68K Cross Compiler -- Compiling Words ) 

1 M68K DEFINITIONS HEX 

2 ( address -- ) 

3: M68MAC ( Compile MACRO code into any definition ) 

4 DUP @ SWAP 2+ OVER HERE SWAP CMOVE ALLOT ; 

5 M68SUB ( Compile SUBROUTINE code into subroutine definition ) 
6 2Mook, Gh Cy 200. C, ( BSR addr ) 

7 HERE M68PFA @ 2+ - ( Compute code length ) 

8 M68ENTRY @ + SWAP @ SWAP - ( Compute displacement ) 
9 SCON ; ( Compile displacement ) 
10 --> 
{1 Note... the memory image of a MACRO to be compiled is: 

12 addr Number of bytes of code to compile 


L3 addr+2 Bytes of code to be compiled. 
14 The memory image of a SUBROUTINE to be compiled is: 
15 addr Address of subroutine relative to start of code 


Screen # 14 


O ( M68K Cross Compiler -- MACRO Compiling Words ) 

1 FORTH DEFINITIONS 

2 ( Create header and set compiler variables ) 

3 :M68MAC ( Begin a MACRO definition ) 

4 [COMPILE] M68K DEFINITIONS 

5 M68K | M68?MAC ! <BUILDS HERE M68PFA ! 

6 O , ( Initialize the number of bytes field ) 
7 DOES> M68MAC ; 

8 M68K DEFINITIONS 

9 ;M68MAC ( terminate a MACRO type definition ) 

10 ?M68PAIRS ?M68MAC 0 M68?MAC ! ( Error check & reset ) 
sa HERE M68PFA @ 2+ - ( Compute code length ) 
12 M68PFA @ ! ( Store in length field ) 

£3 [COMPILE] FORTH DEFINITIONS ; 

14 --> 

Lo 


Screen # 1|5 


O ( M68K Cross Compiler -- Compiling words - constants ) 
1 FORTH DEFINITIONS HEX 

2 M68CON ( Define a single precision constant ) 

3 :M68MAC 3D C, 3C C, ( MOVE.W #const,-[A6] ) 
4 M68K SCON ( Compile constant ) 

> ;M68MAC ; 

6 FORTH DEFINITIONS 

7 : M68DCON ( Define a double precision constant ) 

8 :M68MAC 2D C, 3C C, ( MOVE.L #const,-[A6] ) 
9 M68K SDCON ( Compile double constant ) 
10 ;M68MAC ; 
LL -=> 
£2 


(Continued on page 94) 
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The BDS C Compiler... 


“Performance: Excellent. 
Documentation: Excellent. 


Ease of Use: Excellent.” 


That’s what /nfoWorld said when we introduced 
the BDS C Compiler four years ago. Today, the 
updated BDS Version 1.5 is even better. 

First, the BDS is still the fastest CPM/80-C 
compiler available anywhere. 

Next, the new revised user’s guide comes 
complete with tutorials, hints, error messages and an 
easy-to-use index — the perfect manual for beginner 
or seasoned pro. 

Plus, the following, all for one price: Upgraded file 
searching ability for all compiler/linkage system files. 
Enhanced file I/O mechanism that lets you 
manipulate files anywhere in your system. Support 
system for float and /ong via library functions. An 
interactive symbolic debugger. Dynamic overlays. 
Full source code for libraries and run-time package. 
Sample programs include utilities and games. 

Don’t waste another minute on a slow language 
processor. Order now. 

Complete Package (two 8”SSDD disks, 181-page manual): 
$150. Free shipping on prepaid orders inside USA. VISA/MC, 
C.O.D.’s, rush orders accepted. Call for information on other 


disk formats. BDS C is designed for use with CP/M-80 operating systems, version 2.2. 
or higher. It is Not Currently available for CP/M-86 or MS- DOS. 


BD Software, Inc. 
P.O. Box 2368 
Cambridge, MA 02238 


(617) 576-3828 


Md 
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PROGRAM SIEVE; 
{ THE ERATOSTHENES’ SIEVE BENCHMARK 3} 


CONST SIZE = 8190; 
TYPE BYTE = 0..255; 


VAR |, PRIME, K. COUNT, ITER : INTEGER: 
FLAGS : ARRAY [ 0..SIZE ] OF BOOLEAN: 






































HOW FAST WOULD THIS PROGRAM RUN 
IF IT WERE COMPILED USING YOUR PASCAL COMPILER ? 





C COMPILER 


e FULL C 

e UNIX* Ver. 7 COMPATABILITY 

e NO ROYALTIES ON GENERATED CODE 
e GENERATED CODE IS REENTRANT 









e UPGRADES & SUPPORT FOR 1 YEAR 
C SOURCE AVAILABLE FOR $2500 


HOST 6809 PDP-11*/LSI-11*|  8080/(Z80) 8088/8086 
TARGET TARGET TARGET TARGET 
FLEX*/UNIFLEX* 00 Siow! 
05-9" : , \ eee 
| ma ee 


















RT-11*/RSX-11* 
PDP-11* 





CP/M* 
8080/(Z80) 


PCDOS*/CP/M86* 
8088/8086 










trademark of Microware & Motorola. 


408-275-1659 


TELECON SYSTEMS 
1155 Meridian Avenue, Suite 218 
San Jose, California 95125 
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Chances are, not as fast as it would if it were compiled 
using SBB Pascal. 


As the following benchmarks show, SBB Pascal 
outperforms all other Pascal compilers for the PC in terms 
of speed, code size and .EXE file size: 








BEGIN Execution Code EXE File 
WRITELN( ‘START’ ): Time Size Size 
FOR ITEM := 1 TO 10 DO BEGIN (secs) 

eN04 
GS[ | 
ME := [+1 + 3; 
K := | + PRIME: MS-Pascal 110 229 27136 
WHILE K < = SIZE DO BEGIN 
FLAGS[ K ] := FALSE: 
iin K + PRIME Pascal/MT+ 86 14.70 294 10752 
COUNT := COUNT + 1 
a Turbo Pascal 15.38 288 9029 
WRITELN( COUNT, ‘PRIMES’ ) 
END. 
Development Package 
Software Personal Use Compiler Package 607/272-2807 
Buildin 9 also available Software Building Blocks, Inc. 
Post Office Box 119 


Blocks™ 


Call for free brochure with full benchmarks. 


SBB Pascal is a trademark of Software Building Blocks, Inc. MS-Pascal is a trademark of Microsoft Corporation. Pascal/MT + 86 is a trademark of Digital Research, Inc. 


Turbo Pascal is a trademark of Borland International. 


Circle no. 78 on reader service card. 


Ithaca, New York 14851-0119 


e C AND ASSEMBLY SOURCE MAY BE INTERMIXED 


*PCDOS is a trademark of IBM Corp. MSDOS is a trademark of MICROSOFT. 
UNIX is a trademark of BELL LABS. RT-11/RSX-11/PDP-11 is a trademark of digital 
Equipment Corporation. FLEX/UNIFLEX is a trademark of Technical Systems 
consultants. CP/M and CP/M86 are trademarks of Digital Research. OS-9 is a 





Forth Compiler (Listing Continued, text begins on page 68) 
Listing Two 


LS 
14 
ig 


Screen # 16 


( M68K Cross Compiler -- Compiling words - variables ) 
FORTH DEFINITIONS 

2(n-- ) 

3 : M68ALLOT ( Allot n-bytes in variable pool ) 

4 DUP 1 AND IF 1+ ENDIF ( Byte allign ) 

5 M68K M68PVAR +! ; ( Update pointer ) 

6 FORTH DEFINITIONS 

7 : M68VAR ( Define a single precision variable ) 

8 M68K M68PVAR @ 2 M68ALLOT ( Get and update pointer ) 
9 M68CON ( Define the address as a constant ) ; 

10 FORTH DEFINITIONS 
ity § 
(a 
13 
14 
Ls 


e- © 


: M68DVAR ( Define a double precision variable ) 
M68K M68PVAR @ 4 M68ALLOT ( Get and update pointer ) 
M68CON ( Define the address as a constant ) ; 


Screen # [7 


O ( M68K Cross Compiler -- SUBROUTINE Compiling Words ) 
1 FORTH DEFINITIONS 

2 ( Create header and set compiler variables ) 

3 : :M68K ( Begin a SUBROUTINE definition ) 

4 [COMPILE] M68K DEFINITIONS 

. M68K | M68K? ! ( Set to compiling ) 

6 <BUILDS HERE M68PFA ! M68PCODE @ DUP 

7 MO8ENTRY ! , ( Store subroutine address ) 

8 DOES> M68SUB ; 

q. =-> 


10 Note.. a SUBROUTINE definition may call itself if there are 
11 no side effects. This means that all data altered by the 
12 defined word should be on the stack, not stored in variables. 


Screen # 18 


O ( M68K Cross Compiler -- Code output ) 

1 M68K DEFINITIONS 

2 ( byte to be sent to code output file -- ) 

3 : M680UT ( Link to the code output file ) 

4 BASE @ >R HEX . CR R> BASE 1! ; 

Ss 

6 Note.. the code in the above definition should be replaced 

7 with the appropriate words to send the compiler output to the 
8 code file of your choice. This could be a disk file, a tape, 

9 your MC68000 computer, a printer, or any other output sink you 
{0 may want to use. The protocall is determined by your output 


11! word. The compiler does not assume any protocall so it is a 
12 general purpose tool for generating MC68000 code. 


Screen # 19 


O ( M68K Cross Compiler -- SUBROUTINE Compiling Words ) 
| M68K DEFINITIONS HEX 
2 : ;M68K ( Terminate a SUBROUTINE definition ) 


3 ?M68PAIRS ?M68K 0 M68K? ! ( Error check & reset ) 
4 4E C, 75 C, ( Compile an RTS instruction ) 
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_ HERE M68PFA @ 2+ - ( Compute code length ) 

6 DUP M68PCODE +! ( Update code pointer ) 

7 M68PFA @ 2+ ( Start of compiled code ) 

8 SWAP O DO 

9 DUP C@ M680UT 1+ ( Output a byte of code ) 
10 LOOP DROP 

LL M68PFA @ 2+ DP ! ( Delete code from dictionary ) 
12 [COMPILE] FORTH DEFINITIONS ; 

13 --> 

14 

£5 


Screen # 20 


O ( M68K Cross Compiler -- EXTERNAL ) 

1 M68K DEFINITIONS 

2 : SEXTERNAL ( Define entry point as a constant in FORTH voc. 
3 [COMPILE] FORTH DEFINITIONS 

4 M68ENTRY @ CONSTANT ; 

5 FORTH DEFINITIONS 

6 : EXTERNAL ( Compile an external reference ) 

7 M68K M68K? @ M68?MAC @ OR 

8 IF ." Can’t use EXTERNAL while compiling" 
9 CR ABORT ENDIF 

10 SEXTERNAL ; 

=> 


12 Note... to send the external reference list somewhere else, 

13 replace SEXTERNAL with the appropriate word. Make sure its 
14 function is equivalent to the above, i.e. it must take the 

15 next word in the input stream as the identifier. 


Screen # 21 


O ( M68K Cross Compiler -- Words - literals ) 

| M68K DEFINITIONS HEX 

2 : LITERAL ( Define a single precision literal ) 

3 3D C, 3C C, ( MOVE.W #const,-[A6] ) 

4 SCON ; ( Compile constant ) 

5 : DLITERAL ( Define a double precision literal ) 

6 2D Cc, 3C C, ( MOVE.L #const,-[A6] ) 

7 SDCON ; ( Compile double constant ) 

8 : BYTES 0 DO 20 WORD HERE NUMBER DROP C, LOOP ; 

6. a5 

10 Note.. Used as n BYTES followed by bytes to be compiled into 
{1 the HOST dictionary. This word may be used within a :M68K 
12 or :M68MAC definition but NOT within a colon definition. 


Screen # 22 


O ( M68K Cross Compiler -- Compiling words - arrays ) 
1 M68K DEFINITIONS HEX 
2 ( adr -- ) 
3 : S$M68ARY ( Define code for a single precision array ) 
4 s:M68MAC 30 C, 3C C, ( MOVE.W #const,D0O ) 
5 SCON ( Compile address ) 
6 DOC, SE2C, DL: Cy 36-5, 
7 s>M68MAC ; 
8 ( adr -- ) 
9 : SM68DARY ( Define code for a double precision array ) 
tO 2 :M68MAC 30 C, 3C C, ( MOVE.W #const,DO ) 
LL SCON ( Compile address ) 
LZ 32: OS 16 eo ey ALO 000, AL Cy oe C80... 
13 sM68MAC ; 
14 --> 
is 
Screen # 23 
O ( M68K Cross Compiler -- Compiling words - arrays ) 
! FORTH DEFINITIONS 


26 n=) 
3: M68ARY ( Define a single precision array n cells long ) 
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Forth Com pil Cr (Listing Continued, text begins on page 68) 
Listing Two 


4 M68K M68PVAR @ ( Get base address ) 
5 SM68ARY ( Define the referencing code ) 
6 2* M68ALLOT ( Update variable pointer ) ; 
7 FORTH DEFINITIONS 

8 ( n -- ) 

9 : M@8DARY ( Define a double precision array n cells long ) 


LO M68K M68PVAR @ ( Get base address ) 

LL SM68DARY ( Define the referencing code ) 
12 4 * M68ALLOT ( Update variable pointer ) ; 
13 --> 

14 

15 


Screen # 24 


O ( M68K Cross Compiler -- Compiling words - arrays ) 
| M68K DEFINITIONS HEX 

2 ( adr -- 

3 : $M68CARY ( Define code for a byte array ) 

“+ :M68MAC 30 C, 3C C, ( MOVE.W #const,DO ) 

5 SCON ( Compile address ) 

6 DIAC, <S6 CC, +M6SMAC-.: 

7 FORTH DEFINITIONS 

Sis ae 

9 : M68CARY ( Define a byte array n cells long ) 


10 M68K M68PVAR @ ( Get base address ) 

th SM68CARY ( Define the referencing code ) 
£2 M68ALLOT ; ( Update variable pointer ) 
i3° 35 

14 

£5 


Screen # 25 


O ( M68K Cross Compiler -- Control error checking ) 
lt M68K DEFINITIONS HEX 


2 ( Error checking codes ) 

3 L CONSTANT SECD-IF 

4 2 CONSTANT SECD-BEGIN 

5 3 CONSTANT SECD-DO 

6 4 CONSTANT SECD-WHILE 

7 : SERR-?PAIRS ( Abort if no control structure is started ) 
8 M68?PAIRS @ O= 

9 IF ." No control structure! " ABORT CR ENDIF ; 
10 : SERR-ABT ( Complete error message and abort ) 

LL ." expected " CR ABORT ; 

12 : SERR-IF ( Abort if no IF structure ) 

r3 SERR-?PAIRS SECD-IF - 

14 IF ." IF structure " SERR-ABT ENDIF ; 

15 --> 


Screen # 26 


O ( M68K Cross Compiler -- Control error checking ) 
|! : SERR-BEGIN ( Abort if no BEGIN structure ) 

2 SERR-?PAIRS SECD-BEGIN - 

3 IF ." BEGIN structure " SERR-ABT ENDIF ; 
4 : SERR-DO ( Abort if no DO structure ) 

5 SERR-?PAIRS SECD-DO - 

6 IF ." DO structure " SERR-ABT ENDIF : 

7 : SERR-WHILE ( Abort if no WHILE structure ) 

8 SERR-?PAIRS SECD-WHILE - 

9 IF ." WHILE structure " SERR-ABT ENDIF : 
10 --> 

1 

12 
KS 

(Continued on page 98) 
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Forth Compi ler (Listing Continued, text begins on page 68) 
Listing Two 


14 
Ne 


Screen # 27 


O ( M68K Cross Compiler -- Control structures ) 

{ ( adr -- ) 

2 : SFOR-RES ( Resolve a foreward branch ) 

3 HERE OVER - ( Compute rélative address ) 
4 SWAP OVER HIGH-BYTE OVER C! ( Store high byte ) 
5 I+ Cl ; ( Store low byte ) 

6 ( adr -- ) 

7 : $BAK-RES ( Resolve a back branch ) 

8 HERE - ( Compute relative address ) 

9 SCON ; ( Compile address ) 
10 --> 
i: 
12 
13 
14 
jie: 


Screen # 28 


( M68K Cross Compiler -- Control structures ) 
( -- adr ecd ) 
pa Be ( Compile IF structure, leave address to be resolved ) 


re- © 


2 
3 ( and an error checking code ) 

= GA C2 SeC eS 64. -C -00..e: 

5 HERE $ECD-IF 1 M68?PAIRS +! 

6 O, ; ( Leave space for branch address ) 

7 : ELSE ( Compile an ELSE structure ) 

8 SERR-IF 60 C, 00 Cc, 

9 HERE SWAP ( Save current location and get IF adr ) 


10 O , ( Leave space for branch address ) 
ft SFOR-RES ( Resolve IF branch ) 

£2 : SECD-IF ; 

{3 : ENDIF ( Resolve an IF structure ) 

L4 SERR-IF SFOR-RES -| M68?PAIRS +! ; 

{5 : THEN ENDIF ; --> 


Screen # 29 


O ( M68K Cross Compiler -- Control structures ) 
{ (o== adr eed) 3 

2 : BEGIN ( Compile a BEGIN structure ) 

3 HERE SECD-BEGIN | M68?PAIRS +! : 

4 : UNTIL ( Resolve BEGIN .. UNTIL loop ) 

5 SERR-BEGIN 4A Saas | nl coe “WE et RS 6 53 Ey al 
6 SBAK-RES ( Resolve BEGIN branch ) 
7 | -l M68?PAIRS +! ; 

8 : AGAIN ( Resolve BEGIN .. AGAIN loop ) 

9 SERR-BEGIN 60 C, 00 om 
LO SBAK-RES ( Resolve BEGIN branch ) 
i -1 M68?PAIRS +! : 
12 --> 
£3 
14 
ES 


Screen # 30 


O ( M68K Cross Compiler -- Control structures ) 

1 : WHILE ( Compile WHILE section of loop ) 

2 DUP SERR-BEGIN 4A Cask Co 67. €;5.60 Ce 

3 HERE SECD-WHILE 0 , ; ( Leave space for address ) 
4 : REPEAT ( Resolve BEGIN .. WHILE .. REPEAT loop ) 
98 


Dr. Dobb’s Journal, September 1984 


5 SERR-WHILE SWAP SERR-BEGIN 

6 60 C, 00 C; -{-Code for back: branch °) 
7 SWAP SBAK-RES ( Resolve BEGIN branch ) 
8 SFOR-RES ( Resolve WHILE branch ) 

9 -{ M68?PAIRS +! ; 

10 --> 

LL 

£2 

a 

14 

15 


Screen # 31 


O ( M68K Cross Compiler -- Control structures ) 
L DO ( Compile a DO structure ) 

2 oe: ©, AB ee 

3 HERE SECD-DO | M68?PAIRS +! ; 

4 : LOOP ( Terminate a DO .. LOOP ) 

5 SERR=-DO. 52°C, 57.C,: 4C-C, 97.0 2 00) GicOs-C,; 
6 a0: C... 4b C2. 6D.C,. OG. 

7 SBAK-RES ( Resolve DO branch ) 

8 58 Cc, 8F C, ( Drop index and limit ) 
9 -! M68?PAIRS +! ; 

10 <--> 

2 

12 

ie. 

14 

£5 


Screen # 32 


0 ( M68K Cross Compiler -- Control structures ) 

1 +LOOP ( Terminate a DO .. +LOOP ) 

2 SERR-DO 30: Cy. LE ey Diyos, Bee A BT Ky 

3 060 °C: (06 Cc, 4A.C, 40°C, GE C,. 04.0, 84.0, 41 C, 
4 GO: Oy: O2-C, B2*C,. 42 C, GR e,' 00.8, 

5 SBAK-RES ( Resolve DO branch ) 

6 58 Cc, 8F C, ( Drop index and limit ) 

7 -! M68?PAIRS +! ; 

8 
9 


sM68MAC LEAVE 4 BYTES 3F 57 00 02 ;M68MAC 
Ley eee > 


Screen # 33 


O ( M68K Cross Compiler -- Control structures ) 
1 :M68MAC JSR.W 4 BYTES 30 5E 4E 90 ;M68MAC 
2 :M68MAC JSR.L 4 BYTES 20 5E 4E 90 ;M68MAC 
3 :M68MAC JMP.W 4 BYTES 30 5E 4E DO ;M68MAC 
4 :M68MAC JMP.L 4 BYTES 20 5E 4E DO ;M68MAC 
ae 

6 

7 

8 

9 

10 

Lt 

12 

13 

14 

15 


Screen # 34 


0 ( M68K Cross Compiler -- Initialization words ) 
1 M68K DEFINITIONS HEX 

ee Ce a a 

3: A5SLD ( Load variable pool pointer ) 


, 7C C, S$DCON ; 
4 24. CSF $ (Continued on next page) 
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Forth Com piler (Listing Continued, text begins on page 68) 
Listing Two 


5 
6 
4 
8 
9 
10 
LL 
LZ 
13 


14 
LS 


Screen # 35 


OONNDU PWNHrF O 


Screen # 36 


O ( M68K Cross Compiler 


A6LD ( Load data stack pointer ) 
20°C, SC Ce SDCOM *s 
A7LD ( Load return stack pointer ) 
2E* C, «FC. CL SDCON 
--> 
Note.. to create true modular programs there should be an 
operating system that loads the appropriate registers and then 
calls the module. In that case these words should be discarded 
Since the address is determined at compile time instead of run 
time. 


( M68K Cross Compiler -- Arithmetic words ) 

HEX 

:M68MAC + 4 BYTES 30 LE DL 56 ;:M68MAC 

:M68MAC —- 4 BYTES 30 LE 91 56 ;:M68MAC 

:M68MAC * 6 BYTES 30 LE CL D6 3C 80 ;M68MAC 

:M68MAC / 8 BYTES 4C 9E 00 03 83 CO 3D OL ;M68MAC 
:M68MAC D+ 4 BYTES 20 LE DL 96 ;:M68MAC 

:M68MAC D- 4 BYTES 20 LE 91 96 ;M68MAC 

:M68MAC */ A BYTES 32 LE 30 LE CL D6 81 CL 3C 80 ;M68MAC 


:M68MAC 


:M68MAC 


:M68MAC 


—=> 


/MOD 8 BYTES 42 80 32 LE 30 LE 80 CL 
4 BYTES 48 40 2D 00 ;:M68MAC 
MOD 8 BYTES 42 80 32 LE 30 LE 80 CL 
4 BYTES 48 40 3D 00 ;:M68MAC 
*/MOD 8 BYTES 32 LE 30 LE CO DE 80 Cl 
4 BYTES 48 40 2D 00 ;:M68MAC 


Arithmetic words ) 


1 :M68MAC U* 6 BYTES 30 LE CO DE 2D 00 >; M68MAC 
2 :M68MAC U/MOD A BYTES 32 LE 20 LE 80 CL 48 40 2D 00 :M68MAC 
3 :M68MAC 1+ 2 BYTES 52 56 ;M68MAC 
4 :M68MAC |- 2 BYTES 53 56 >M68MAC 
5 :M68MAC 2+ 2 BYTES 54 56 ;M68MAC 
6 :M68MAC 2- 2 BYTES 55 56 >M68MAC 
7 :M68MAC 2* 2 BYTES EL D6 >M68MAC 
8 :M68MAC 2/ 2 BYTES EO D6 ;M68MAC 
9 :M68MAC NEGATE 2 BYTES 44 56 ;M68MAC 
10 :M68MAC MINUS NEGATE ;M68MAC 
{1 :M68MAC DNEGATE 2 BYTES 44 96 ;M68MAC 
12 :M68MAC DMINUS DNEGATE ;M68MAC 
13 :M68MAC ABS 6 BYTES 4A 56 6C 02 44 56 >; M68MAC 
14 :M68MAC DABS 6 BYTES 4A 96 6C 02 44 96 ;M68MAC 
15 --> 
Screen # 37 
O ( M68K Cross Compiler -- Stack manipulation ) 
1 :M68MAC DROP 2 BYTES 54 8E ;M68MAC 
2 :M68MAC 2DROP 2 BYTES 58 8E ;M68MAC 
3 :M68MAC DUP 2 BYTES 3D |L6 ;M68MAC 
4 :M68MAC 2DUP 2 BYTES 2D [6 :M68MAC 
5 :M68MAC SWAP 6 BYTES 20 [6 48 40 2C 80 > M68MAC 
6 :M68MAC 2SWAP A BYTES 20 [6 2C AE 00 04 2D 40 OO 04 ;M68MAC 
7 :M68MAC OVER 4 BYTES 3D 2E 00 O02 >M68MAC 
8 :M68MAC 20VER 4 BYTES 2D 2E 00 04 >M68MAC 
9 :M68MAC >R 2 BYTES 3F ILE >M68MAC 
10 :M68MAC R> 2 BYTES 3D [IF >M68MAC 
{L s:M68MAC I 2 BYTES 3D 1L7 ;:M68MAC 
12 :M68MAC I” 4 BYTES 3D 2F 00 02 > M68MAC 
13 :M68MAC J 4 BYTES 3D 2F 00 04 > M68MAC 
ee eee 
15 
100 


(Continued on page | 02) 
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FORT 


SIC BC ee et Cee 


New Release 


One user told us that, compared to other 8-bit C Compilers, 
Eco-C’s “floating point screams”. True. But, Release 3.0 has a 
number of improvements in other areas, too: 


New optimizers with speed improvements of up to 50 
percent over earlier releases! 


New Compiler-time switches for greater flexibility. 
A standard library with 120 pre-written functions. 


Expanded error checking with over 100 possible error 
messages in English including multiple, non-fatal errors. 


Improved, easy-to-read users manual. 


The Eco-C Compiler supports all data types (except bit-fields) and 
comes with MACRO 80 and the C Programming Guide for $250.00. An 
optional, high-speed assembler and linker is available for an additional 
$75.00. Eco-C requires a Z80 CPU, CP/M, and 56K of free memory. To order, 


call 
1 in 


6413 N. College Ave. @ Indianapolis, IN 46220 aia 
(347) 255-6476 (seen 


for the Apple® | [ 


Fixed point speed can rival that of float- 
ing point hardware. But the details have 
been a well kept secret—until now. The 
following graphs were generated by fixed 
point examples from the ISYS FORTH 
manual. 





ecosoFf T#@ inc. 


Eco-C (Ecosoft), CP/M (Digital Research), 280 (Zilog), MACRO 80 (Microsoft) 


Parallel Resonance with DF-Taaveyiare 
BASIC 213 sec 1SYS FORTH 27 sec 





Circle no. 24 on reader service card. 








Re-ink any fabric ribbon for 
less than 5¢. Extremely simple 
operation. We have a MAC 
INKER for any printer. 
Lubricant ink safe for dot 
matrix printheads. Multi- 
colored inks, uninked 
cartridges available. Ask for 
brochure. Thousands of 
satisfied customers. 


$5495 + 


_ 


Wily / 


Yin, 
_ 





Order Toll Free 1-800-547-3303 


Mac Switch lets you share 
your computer with any two 
peripherals (serial or 
parallel). Ideal for word 
processors—never type an 
address twice. Ask us for 
brochure with tips on how to 
share two peripherals with 
MAC SWITCH. Total 
satisfaction or full refund. 


$9900 





C=: mputer 


Friends 


6415 SW Canyon Court 





| Suite #10 
Portland, Oregon 97225 
. (503) 297-2321 





Hydrogen 3p Orbital Cross-section 
BASIC 492 sec ISYS FORTH 39 sec 


Fast native code compilation. Sieve 
benchmark: 33 sec 

Floating Point—single precision with 
trancendentals 

Graphics—turtle & cartesian with 70- 
column character set 

DYoltl ol (-M acti ttiels mlarellecelialem Daw, 

DOS 3.3 Files read & written 
FORTH-83 with standard blocks 
Full-Screen Editor 

Formatter for word processing 

Macro Assembler 

Price: $99, no extra charges 


ILLYES SYSTEMS 
sO 310) a4ol Lovano) t-\ 
Champaign, IL 61820 


Neves avalior-] mm ance) saatciecelar 
217/359-6039, mornings 


For any Apple ][ model, 48K or larger. 
Apple is a registered trademark of Apple 
(Ofolsatelena a 





& MacSwitch 


Circle no. 14 on reader service card. 
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Listing Two 


Screen # 38 


O ( M68K Cross Compiler -- Comparison operations ) 
{ :M68MAC = 6 BYTES 30 LE 32 LE B2 40 

2 8 BYTES 57 CO 02 40 00 OL 3D 00 ;M68MAC 
3 :M68MAC < 6 BYTES 30 LE 32 LE B2 40 

4 8 BYTES 5D CO 02 40 00 OL 3D 00 ;M68MAC 
5 :M68MAC > 6 BYTES 30 LE 32 LE B2 40 

6 8 BYTES 5E CO 02 40 00 OL 3D 00 ;M68MAC 
7 :M68MAC MIN 6 BYTES 30 LE 32 16 BO 41 

8 6 BYTES 6F 02 CL 41 3C 80 ;M68MAC 

9 :M68MAC MAX 6 BYTES 30 LE 32 [6 BO 41 


i OP eet 


Screen # 39 


O ( M68K Cross 


1 :M68MAC D= 6 
2 

3 :M68MAC D< 6 
4 8 
5 :M68MAC D> 6 
6 8 
Fe 

8 

9 
10 

LL 
12 
13 
14 
£5 


Screen # 40 


6 BYTES 6C 02 Cl 4L 3C 80 ;M68MAC 


Compiler - 


Piine 20 LE 22 


8 BYTES 57 CO: 02 


BYTES: 20°. FE 22 


BYTES 


5D CO 02 


BYTES 20 LE 22 


BYTES 


( M68K Cross Compiler -- 


se CO: 02 


e- O 


:M68MAC 


:M68MAC 
:M68MAC 


2 
3 
4 
5 
6 :M68MAC 
5 
8 
2 


O= 2 BYTES 4A 5E 
8 BYTES 57 CO 
NOT O= ;M68MAC 
O< 2 BYTES 4A 55 
8 BYTES 5D.CO 
O> 2 BYTES 4A 5E 


LE 


B2 
00 
B2 
00 
B2 
00 


Comparison operations ) 


80 
Ol 3D 00 ;M68MAC 
80 
Ol! 3D 00 ;M68MAC 
80 
Ol 3D 00 ;M68MAC 


Comparison operations ) 


02 40 00 OL 3D 00 ;M68MAC 


O02 40 00 OL 3D 00 ;M68MAC 


8 BYTES 5E CO 02 40 00 OL 3D 00 ;M68MAC 


:M68MAC DO= 2 BYTES 4A 9E 
8 BYTES 57 CO 02 40 00 OL 3D 00 ;M68MAC 
10 :M68MAC DO< 2 BYTES 4A 9E 
ie 8 BYTES 5D CO 02 40 00 OL 3D 00 ;M68MAC 
12 :M68MAC DO> 2 BYTES 4A 9E 
3 8 BYTES 5E CO 02 40 00 OL 3D 00 ;M68MAC 
14 --> 
£5 
Screen # 41 
O ( M68K Cross Compiler -- Comparison operations ) 
1 :M68MAC AND 4 BYTES 30 LE CL 56 ;M68MAC 
2 :M68MAC OR 4 BYTES 30 LE 81 56 ;M68MAC 
3 :M68MAC XOR 4 BYTES 30 LE BL 56 ;M68MAC 
4 :M68MAC |’S 2 BYTES 46 56 ;:M68MAC 
5 --> 
6 
7 
8 
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9 
10 
Ae 8 
V2 
i3 
14 
15 


Screen # 42 


( M68K Cross Compiler -- Memory and I/O operations ) 
:M68MAC ! 6 BYTES 30 LE 3B 9E O00 OO ;M68MAC 
:M68MAC @ 6 BYTES 30 16 3C B5 OO OO ;M68MAC 
:M68MAC 2! 6 BYTES 30 LE 2B 9E OO OO ;M68MAC 
sM68MAC 2@ 6 BYTES 30 LE 2D 35 00 00 ;M68MAC | 
:M68MAC +! 8 BYTES 30 LE 32 LE D3 75 00 00 ;M68MAC 
:M68MAC C! 8 BYTES 30 LE 32 LE LB 81 00 00 ;M68MAC 
:M68MAC C@ A BYTES 30 16 42 41 12 35 00 00 3C 81 ;M68MAC 
:M68MAC FILL 8 BYTES 30 LE 32 LE 30 5E Dl CD 

8 BYTES 60 02 10 CO 51 C9 FF FC ;M68MAC 
--> 


Screen # 43 


OON AUN PWNrF O 


( M68K Cross Compiler -- Memory and I/O operations ) 
:M68MAC AW! 4 BYTES 30 5E 30 9E ;M68MAC 
:M68MAC AW@ 4 BYTES 30 56 3C 90 ;M68MAC 
:M68MAC AL! 4 BYTES 20 5E 30 9E ;M68MAC 
:M68MAC AL@ 4 BYTES 20 5E 3D LO ;M68MAC 
:M68MAC CAW! 6 BYTES 30 5E 30 LE 10 80 ;M68MAC 
:M68MAC CAW@ 8 BYTES 30 56 42 40 10 LO 3C 80 ;M68MAC 
:M68MAC CAL! 6 BYTES 20 5E 30 LE 10 80 ;M68MAC 
:M68MAC CAL@ 8 BYTES 20 5E 42 40 10.10 3D OO ;M68MAC 
:M68MAC 2AW! 4 BYTES 30 5E 20 9E ;M68MAC 
:M68MAC 2AW@ 4 BYTES 30 5E 2D 1O ;M68MAC 
:M68MAC 2AL! 4 BYTES 20 5E 20 9E ;M68MAC 
:M68MAC 2AL@ 4 BYTES 20 56 2C 90 ;M68MAC 
:M68MAC AFILL 8 BYTES 30 LE 32 LE 20 5E 60 02 

6 BYTES LO CO 51 C9 FF FC ;M68MAC 
-S 


Screen # 44 


OONAOUPBPWNEO 
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<BUILDS CREATE SMUDGE O , ; 


ENDIF [COMPILE] THEN ; IMMEDIATE 


( Definitions required for FORTH-79 ) 
2S 

Note.. the above definitions work on my system which is a 
combination fig FORTH and FORTH-79. However, the definition 

of <BUILDS may not work with a true FORTH-79 system. The 
compatability depends on how the word DOES> operates in your 
system. For the system described in Leo Brodie’s book Starting 
FORTH the definition would be: 

: <BUILDS CREATE ; ; 

You will need to write an appropriate definition for your 
system, the ones given above should serve as guides. 


End Listing Two 


(Continued on next page) 
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Forth Compil Cr (Listing Continued, text begins on page 68) 
Listing Three 


Screen # 8 


O ( Eratosthenes Sieve Prime Number program in FORTH ) 
1! ( by Jim Gilbreath, BYTE September 1981 page 190 ) 
2 FORTH DEFINITIONS DECIMAL 


3 8190 CONSTANT SIZE O VARIABLE FLAGS SIZE ALLOT 
4 

5 : DO-PRIME FLAGS SIZE | FILL 

6 O SIZE 0 

f DO FLAGS I + C@ 

8 LP i Dee + 3°" DUP. T+ 

9 BEGIN DUP SIZE < 

LO WHILE O OVER FLAGS + C! OVER + REPEAT 
LL DROP DROP [+ 

LZ THEN 

ES LOOP 

14 6: og ae OS. 2 

£5.48 


Screen # 9 


O ( Eratosthenes Sieve Prime Number program for M68K compiler ) 
{ ( Original by Jim Gilbreath, BYTE September 1981 page 190 ) 

2 DECIMAL 0 M68CON #0 ( Note.. O is used a lot in the following ) 
3 8190 CONSTANT SIZE SIZE M68CON SIZE ( Both forms needed ) 
4 M68VAR FLAGS SIZE M68ALLOT 

5 

6 :M68MAC DO-PRIME FLAGS SIZE | LITERAL FILL 

7 #0 SIZE #0 

8 DO FLAGS I + C@ 

9 IF I DUP + 3 LITERAL + DUP I + 

10 BEGIN DUP SIZE < 

bak WHILE #0 OVER FLAGS + C! OVER + REPEAT 
LZ DROP DROP [+ 

13 THEN 

14 LOOP ;M68MAC 

15 --> 


Screen # LO 


( Test program to run the prime number program ) 

HEX 7000. M68INIT ( Open the output file ) 

:M68MAC INIT ( Initialize all the registers ) 
800. A5LD ( Load variable pointer ) 
4000. A6LD ( Load data stack pointer ) 
7800. A7LD ( Load return stack pointer ) 

;M68MAC 

DECIMAL 

:M68K TEST ( Run the prime number test ten times ) 
INIT 

LO 10 LITERAL #0 DO DO-PRIME DROP LOOP 

LL ;M68K 

12 M68END ( Close the output file ) 

£3: eS 


OONAUPWNHErF O 


Screen # ILL 


( Eratosthenes Sieve Prime Number program improved version ) 

( Original by Jim Gilbreath, BYTE September 198! page 190 ) 
DECIMAL 0 M68CON #0 ( Note.. O is used a lot in the following ) 
8190 CONSTANT SIZE SIZE M68CON SIZE ( Both forms needed ) 
SIZE M68CARY FLAGS 


Ou PWNrF O 


:M68MAC DO-PRIME #0 FLAGS SIZE {| LITERAL FILL 


(Continued on page 106) 
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‘ b] 
Y FORMAT Y 
INCOMPATIBLE er e COMPATIBLE 
mx 8asic PORT-A-SOFT Y BASIC 
423 E. 800 N. Orem, Utah 84057 
(801) 226-6704 
DOWNLOADING SERVICE 
* Port-A-Soft provides the service of taking programs from a diskette 
that a customer's computer cannot read and transferring it toa 
diskette that the customer's computer can read. 
* Service available for approximately 250 diskette and tape formats 
from over 13 micro, mini, and main-frame operating systems. 
* Disk to disk, tape to disk , disk to tape Conversions. 
* Fast service. One day disk conversions. 72-hour tape CONVEFSIONS. 
* Competitive prices. Disk conversions as little as $5.00 per disk plus 
setup, shipping and handling. 


DOWNLOADING SOFTWARE 
* Port-A-Soft sells programs that make it possible for the customer's 
computer to read diskettes for many other computer makes 
and models. 


DOWNLOADING HARDWARE 
* Port-A-Soft sells specially designed computers and peripherals that 
support the reading, writing, and formatting of diskettes for many 
computer makes and models. 


WHO CAN BENEFIT? 


USERS: Enhance the power of your micro with programs not available 
in your diskette format, or with data such as mailing lists, taken from 
9 track tapes. 

MANUFACTURERS AND DEALERS: Let us help you make that sale 
that is conditioned on converting the customers data to the new 
computer, or let us help you provide the sale clinching software that 
the customer needs to opt for your product. 

SOFTWARE PUBLISHERS: Expand your profits by letting us download 
your software to those unusual formats you Cannot afford to support 
directly, or by porting your software to other operating systems and 
new markets. 

USERS GROUPS: Get the public domain software you want in the 
format you want for your users group. 


‘PORT-A-SOFT 


x X-FORMAT 


423 E. 800 N. Orem, Utah 84057 (801) 226-6704 
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re Bridge 


TRANSFERRED 7 


WRITE 


The Writer’s Really Incredible Text Editor lives up to its 
name! It’s designed for creative and report writing and 
carefully protects your text. Includes many features 
missing from WordStar, such as_ sorted directory listings, 
fast scrolling, and trial printing to the screen. All editing 
commands are single-letter and easily changed. Detailed 
manual included. Dealer inquiries invited. WRITE is 
$239.00. 


BDS’s C Compiler 


This is the compiler you need for learning the C language 
and for writing utilities and programs of all sizes and 
complexities. We offer version 1.5a, which comes with a 
symbolic debugger and example programs. Our price is 
(postpaid) $130.00. 


Tandon Spare Parts Kits 


One door latch included, only $32.50. 
With two door latches $37.50. 
Door latches sold separately for $7.00. 


All US orders are postpaid. We ship from stock on many 
formats, including: 8", Apple, Osborne, KayPro, Otrona, 
Epson, Morrow, Lobo, Zenith, Xerox. Please request our 
new catalog. We welcome COD orders. 


on & ASSO, 
“4 
Workman & Associates 


112 Marion Avenue 
Pasadena, CA 91106 
(818) 796-4401 
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And You Don’t Subscribe?! 


Save over $23.00 off newsstand prices for 2 yrs. 
save over $10.00 for 4 yr. 


Can you afford to miss an issue with information vital fo your interests? As a subscriber 





you can look forward to articles on Small-C, FORTH, CP/M, S-100, Compiler optimiza- 
tion, Concurrent Programming and more, delivered right to your door. And you'll 
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Forth Compil €r (Listing Continued, text begins on page 68) 


Listing Three 

7 #0 SIZE #0 

8 DO I FLAGS C@ 

9 IF I 2* 3 LITERAL + DUP I + 

10 BEGIN DUP SIZE < 

Li WHILE #0 OVER FLAGS C! OVER + REPEAT 
12 2DROP [+ 

cS THEN 

14 LOOP ;M68MAC 

15 --> 


Screen # 12 


( Test program to run the prime number program ) 
HEX 7000. M68INIT ( Open the output file ) 
:M68MAC INIT ( Initialize all the registers ) 
800. A5LD ( Load variable pointer ) 
4000. A6LD ( Load data stack pointer ) 


0 
x 
2 
3 
4 
5 7800. A7LD ( Load return stack pointer ) 
6 ;M68MAC 

“ 

8 

9 


DECIMAL 
:M68K TEST ( Run the prime number test ten times ) 
INIT 
LO 10 LITERAL #0 DO DO-PRIME DROP LOOP 
Ll ;M68K . 
12 M68END ( Close the output file ) 
2 5 


.PROC PRIME 


Eratosthenes Sieve Prime Number program in M68000 assembly language. 
This program provides a baseline for evaluating the performance of the 
M68K compiler. 


Register variables: 
DO.. Temporary storage 
Di.. Number of iterations 
D223. Lf <-. DO Loop. counter 
D3.. P - candidate prime number 
D4.. K - array index used with P 
D5.. COUNT - number of primes 
D6.. SIZE - size of the flags array 


AO.. FLAGS - base address of the FLAGS array 
Al.. Temporary address register used for initializing FLAGS 


Note.. 
This program does not correspond exactly to the FORTH version but 
the algorithm is the same so this should be a fair comparison. 
The portions of the: FORTH code which correspond to the sections of 
assembler code are indicated in the comments. 


e =e =@6e =e =@ =e =e ~~@ =e =e ™=@e ™=~e =@e ™=@ =@e =e =@ -@ =e =e =e ~~e -~*e -~@e =e 


SIZE - EQU 8190 


FLAGS - EQU 800H ;Base address of the FLAGS array 
ITER - EQU LO ;Number of iterations of the sieve 


e 
‘ 


MOVE.W #ITER,DL 

MOVE.W #SIZE,D6 

MOVEA.W #FLAGS, AO 

BRA.S ENDIL ;Enter the iteration loop at the proper place 
STARTIL ;Start of the iteration loop 


FORTH code: 
FLAGS SIZE | FILL 


=@e =e =e -=~@ 


MOVEQ  #1,D0 
MOVE.W D6,D2 ;Load SIZE into D2 
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MOVEA.L AO,AL Address of element of FLAGS to set 
BRA.S $02 

SOL MOVE.B- DO, (AL)+ 

$02 DBRA D2,S01 


FORTH code: 
O SIZE O DO 


=e “7"e se “8 


CLR.W D5 ;Clear prime counter 


CLR.W D2 ;Clear DO loop counter 
DOLOOP 


FORTH code: 
FLAGS I + C@ IF 


"-e se Ee 


=e 


BTST #0,0(A0,D2.W) 
BEQ.S THEN ;If false, skip the true part of IF structure 


FORTH code: 
I DUP + 3 + DUP I + 


~e ™“e se re 


MOVE.W D2,D3 
ADD .W D3,D3 


ADDQ.W #3,D3 ;P=I+I+3 
MOVE.W D3,D4 
ADD.W D2,D4 7;K=P+I1 


> FORTH code: 
: BEGIN DUP SIZE < 
: WHILE O OVER FLAGS + C! OVER + REPEAT 
; DROP DROP [+ 
BEGIN CMP .W D6, D4 
BGE.S $03 
CLR.B 0(A0O,D4.W) 
ADD.W D3, D4 
BRA.S BEGIN 


$03 ADDQ.W #1,D5 ;Update prime counter 
> FORTH code: 

; THEN 

; LOOP 

THEN ADDQ.W #1,D2 


CMP .W D6é,D2 
BLT.S DOLOOP 


ENDIL DBRA DL,STARTIL ;Repeat for requested number of iterations mere 
. END End Listings 






YOU WON’T WANT THIS BOARD BECAUSE: 


It is a low cost development system; it comes in a metal case; it has its own 9 VAC power pak; it has a high level language and operating 
system built in, that software-supports disk functions; it has an RS232 serial port; it has two 8 bit parallel ports (five 8 bit ports for $330); 
it has two 16 bit multi-function counter/timers; it has edge sensitive lines; it has a 2 kbyte CMOS RAM; ithas a 2 kbyte EEPROM; it has in 
circuit PROM programming capability; it has a prototyping area and room in the box for other cards. 
It is reliable ... itis rugged ... it is powerful. 


NOT EVEN BECAUSE: it can auto-start a user program on power up and is priced 
at $90 in OEM quantity and configuration. 


YOU WANT IT BECAUSE: 
IT WILL SAVE YOU TIME! 


Dedicated applications can quickly be developed and installed ... like ... 
The electronic to compass-to-computer interface: development time - 4 hours. 
Or the acoustic ranging unit with false echo rejection: 5 days. 

Or the electronic scale-to-business system, RS232 link: under 2 hours. 


COST EFFECTIVE ENOUGH TO KEEP IN STOCK FOR THOSE 
QUICK INTERFACING FIXES OR DEDICATED CONTROL APPLICATIONS 
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BYTE KIND 
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THEN WE'VE 
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OF COMPUTER 
SHOW. 
DON’T MISS 
THE BYTE 
COMPUTER 
SHOW. 
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THE BYTE COMPUTER SHOW/San Francisco’84 
a unique and informative 25-session conference. 


SCHEDULE BY GROUP 
KEYNOTE 
KN-1 Bit-Pusher Perspectives 


HARDWARE HELPERS 
HH-1 Who Needs 32 Bits? 


HH-2 Is PC Compatibility 
Holding Us Back? 


HH-3 Adding-On For A 
Supercharged System 


HH-4 The 1200 bps Modem: 
Users Report 
SOFTWARE SAVINGS 


SS-1 User Agreements: 
A New Day Dawning? 


SS-2 Programming Environments: 


New Tools and Techniques 


SS-3 The Home-Brew Data Base: 
Tips for Home Brewers 


LANGUAGE LABORATORY 
LL-1 Micro Language Forum 
LL-2 CLanquage Tradeoffs 
LL-3 BASIC: Can It be Saved? 


DONT MISS 
THE BYTE 
COMPUTER 
SHOW. 


SEPT. 6-9 
BROOKS HALL 
AND CIVIC 
AUDITORIUM. 


DON'T MISS 
THE BYTE 
COMPUTER 
SHOW. 


SEPT. 6-9 
BROOKS HALL 
AND CIVIC 
AUDITORIUM. 
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9/6 


ot 
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9/8 


9/8 


9/6 
9/7 


9/8 


9/6 
9/7 
9/8 


SAVE THIS | COUPON 


TIME 
11:00-12:30 


11:00-12:30 
5:00- 6:30 


2:00- 3:30 


5:00- 6:30 


2:00- 3:30 
5:00- 6:30 
5:00- 6:30 
5:00- 6:30 


2:00- 3:30 
11:00-12:30 


APPLICATIONS FRONTIER 


AF-1 Home/Family Management: 
Beyond the Recipe Collection 


AF-2 Your Personal Robot 

AF-3 Systems for the Handicapped 

AF-4 When Less is More: 
Notebook Computers 

SOFTWARE HORIZONS 


SH-1 Next Generation OS: 
Are Icons Inevitable? 


SH-2 Beyond Words: 
Idea Processing 


SH-3 Al Gateways to Natural 
Languages 

SH-4 Voice Pattern Recognition 

GRAPHICS GALORE 

GG-1 Keyboard Alternatives 

GG-2 Low Bucks Graphics Add-Ons 

GG-3 Micro Graphics Applications 


THE BEST IS YET TO COME 


YC-1 Coming Attractions: 
The Computer/Video Interface 


YC-2 Japanese Computer Trends 
YC-3 Mass Storage Alternatives 


DAY 


9/6 
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9/6 
OL 
fT 
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9/6 
9/7 
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Regular Admission: 4 Day - $15.00, 1 Day $10.00 
Discount Admission: 4 Day - $10.00, 1 Day - $7.50 


This ticket admits one person. Valid through Sept. 9, 1984. This ticket may not be reproduced. 


Present this coupon for discount admission 





San Francisco, ceaiceelias 6-9, 1984 
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Regular Admission: 4 Day - $15.00, 1 Day $10.00 
Discount Admission: 4 Day - $10.00, 1 Day - $7.50 


This ticket admits one person. Valid through Sept. 9, 1984. This ticket may not be reproduced. 
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The FVG Standard 
Floating-Point Extension 





by Ray Duncan 
and Martin Tracy 
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[Forth’s development has been rather 
controversial, with even the nature of 
the language tending to work against 
standardization efforts. Perhaps be- 
cause of the original fixed-point ori- 
entation of Forth, the movement to 
standardized floating-point opera- 
tions for the language has lagged be- 
hind some of the standardization ef- 
forts of other high-level languages. 
The Forth Vendors Group, an associa- 
tion of vendors of Forth systems, has 
recently adopted its own standard for 
a floating-point extension to Forth. 
We present it here so that readers may 
examine what they may well be seeing 
in many of the Forth packages distrib- 


_uted in the future. If a large percent- 


age of vendors choose to implement 
this, it may well have a significant im- 
pact in the next round of standardiza- 
tion by the Forth Standards Team. At 
the very least, it provides a look at one 
of the more recent attempts to bring 
more uniformity and portability to the 
language. — Ed. | 


as floating point, the interface to host 
operating systems, graphics, or file 
management. The Forth Vendors 
Group, hoping to help Forth find 
broader usage and acceptance, decided 
to take the initiative by creating and 
adopting the “FVG Standard Floating 
Point Extension.” The document was 
written by Martin Tracy of Micromo- 
tion and Ray Duncan of Laboratory 
Microsystems, based on input from sev- 
eral vendors including Talbot Micro- 
systems, Rising Star, Dysan, Miller 
Microsystems, and Creative Solutions. 

The FVG Standard Floating Point 
Extension is intended to serve chiefly 
as a guide for implementors, and is a 
minimum functional description in- 
cluding command and function names 
and a few new data types. Although 
this FVG Standard Extension is not 
binding on any of the FVG members, 
we expect that most of the major ven- 
dors will be modifying their existing 
floating-point packages to conform 
with it. It will be submitted to the next 
meeting of the Forth Standards Team 


“The FVG Standard is intended to serve chiefly as a 
guide for implementors, and is a minimum functional 
description...” 


Standard, the Forth Standards Team 
concerned itself only with the core of 
the language. No attempt was made to 
introduce standardization in such areas 


|: its recent release of the Forth-83 


Ray Duncan, Laboratory Microsys- 
tems, P.O. Box 10430, Marina Del 
Rey, CA 90295, 
Martin Tracy, Micromotion, 12077 
Wilshire Blvd., Suite 506, Los Ange- 
les, CA 90025. 


(expected to be in 1987) for consider- 
ation as part of the next Forth Stan- 
dard. If Forth application programs 
that perform floating-point operations 
follow the guidelines laid out in the 
FVG Standard Floating Point Exten- 
sion, referencing only names and func- 
tions described in that document, then 
such programs should then be portable 
without changes to the various float- 
ing-point implementations created by 
the different vendors. 
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The Forth Vendors Group 
Standard Floating-Point 
Extension 


Syntax of Floating Point Numbers 
If the floating-point extension word set 
has been overlaid onto an 83-Standard 
Forth system, a string of the following 
form will be compiled or interpreted as 
a real number: 


nnnn.nnnExx 


The “E” signifier is mandatory to force 
the conversion of a real number. The 
presence of numeric digits before or af- 
ter the ‘“E” is not required by this speci- 
fication but may be mandatory in some 
implementations. A “—” sign may pre- 
cede both the mantissa and the expo- 
nent, a leading “+” sign is also permis- 
sible on the exponent. A decimal point 
is optional and may occur anywhere in 
the mantissa. For example, all of the 
following numbers are legal: 


~ .0001E5 
100.0E+0 
1000.E- 15 


The word FNUMBER may be used by 
application programs to convert 
strings into real numbers. The current 
system BASE is assumed to be DECI 
MAL whenever floating-point numbers 
are being converted or displayed. If it 
is not, the results are undefined. 


Display of Floating-Point 

Numbers 3 

Two primitive display operations are 
always available: F., which adjusts the 
position of the decimal point and prints 
the number without an exponent, and 
E., which prints the number in expo- 
nential notation. More complex output 
formatting capabilities may be present 
in some systems and are described in 
the Optional Floating-Point Words 
glossary. 


Floating-Point Stacks 

Floating-point implementations differ 
in that some have a separate floating- 
point stack while others keep all integer 
and real numbers on the same parame- 
ter stack. This proposed extension does 
not concern itself with the relative 
benefits or disadvantages of either type. 
The source or destination of a real- 
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number argument is always the float- 
ing-point stack, if separate stacks exist. 


Portability 

To ensure portability of an application, 
it is important that the programmer 
not take advantage of his knowledge of 
the physical format of real numbers. 
The floating-point variants of the 
memory access and stack operators 
should be used in all cases for real 
numbers, even when they happen to 
coincide with other Forth operators. 
For example, if the system supports a 
32-bit real-number format, FDUP and 
2DUP would have the same effect— 
but FDUP should be used for the sake 
of portability. 


Floating-Point Glossary 

The floating-point extension word set 
is described below in the standard glos- 
sary format. The symbols indicate the 
order in which input parameters have 
been placed on the stack. Three dashes 
(“*---’?) denote the execution point; any 
parameters left on the stack are listed. 


In this notation, the top of the stack is 
to the right. Symbols include: 


addr memory address 
b 8-bit byte 
(upper 8 bits zero or ignored) 
rrl ‘floating-point number 
(length is implementation 
dependent) 
f boolean flag, 
0 =false, —1 =true 
n 16-bit, signed integer 
u 16-bit, unsigned integer 
d 32-bit, signed integer 
du 32-bit, unsigned integer 


Required Floating-Point 

Arithmetic Operators 

F+ rl r2 --- r3 
Floating-point addition, leave the 
sum of rl plus r2. 

F- rl r2 --- r3 
Floating-point subtraction, leave 
the difference of rl minus r2. 

F* rl r2--- r3 
Floating-point multiplication, 
leave the product of rl and r2. 


Knowledge And Mind Amplification System. 


|_| Get a head start at developing applications in the exciting, new area of Outline Processing. With KAMAS™, you 
can organize ideas in a familiar, outline form. And retrieve them with astonishing speed using the built-in KAM™ Ac- 


cess Method. 


_] All under the precise control of an extensible, programming environment. The KAMAS™ language produces com- 
pact, threaded code and is integrated with the Outline Processing. Source code can be entered with the built-in text 
editor and stored in outline form, providing extraordinary leverage for structured programming and development. 


(] The language is highly interactive and fast, offering an outstanding environment for developing and testing applica- 
tions using the Outline Processing, Information Retrieval, Word Processing, and Telecommunications features. 


_] Capitalize on the next wave of the software revolution which promises to surge as high as Spreadsheet Processing. 
Available for Z80, CP/M 2.2 computers. Special introductory offer: $147. Send now for your free copy of “The 


S Report.” 


fC.  COMPUSOPHIC Dept. 121 © 2525 SW 224th Ave 


i 
NJ SYSTEMS 


Aloha, Oregon 97006 e (503) 649-3765 


KAMAS is a trademark of Compusophic Systems. CP/M is a registered trademark of Digital Research, Inc. Z80 is a re- 


gistered trademark of Zilog, Inc. 
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F/ rl r2 --- r3 
Floating-point division, leave the 
quotient of rl divided by r2. 

F** rl r2 --- r3 
Leave the value of rl raised to the 
power r2, 1.e. rl". 


FABS r ---[r] 
Leave the absolute value of real 
number. 


FNEGATE r --- —r 
Change the sign of a real number. 
FSORT rl --- r2 
Floating-point square root. 
FMAX rl r2 --- rmax 
Leave the larger of two real 
numbers. 
FMIN rl r2 --- rmin 
Leave the smaller of two real 
numbers. 


Required Floating-Point 
Transcendental Functions 


FLOG rl --- r2 
Log to the base 10. 
FLN rl --- r2 


Log to the base e. 


The UNIX regular 


expression recognizer 


_MAIN 


Wildcard expansion & 
oy oX-¥-¥m ce) ay (WA a- 1 om @ 


All programs come with complete source 
code, inC. Price: $35 each; $50 together. 


For more information 
roy mm oxolaty o)(-3¢-Mmox-he- i fore Hb lw 


SOFTWARE ENGINEERING CONSULTANTS 
P.O. BOX 5679. . 
BERKELEY, CA. 94705 © 
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FALOG rl --- r2 
Leave the value of 10 raised to the 
power of rl. 

FALN rl --- r2 
Leave the value of e raised to the 
power of rl. 

FSIN rl --- r2 
Leave the sine of rl. Input argu- 
ment is in radians. 

FCOS rl --- r2 
Leave the cosine of rl. Input argu- 
ment is in radians. 

FTAN rl --- r2 
Leave the tangent of rl. The tan- 
gent of 7/2 or 3 7/2 radians re- 
turns the largest real number re- 
presentable in the implementa- 
tion’s binary format. 

FASIN rl --- r2 
Arc-sine, valid for 
-|<=rl <= 1. 
Returns result in range — 72/2 to 
a /2 radians. 

FACOS rl --- r2 
Arc-cosine, 
-l|<=rl<= 1. 


nc 


valid for 


CP/M 
$65/$10 


Available 


Bie CAP Sta: ig a REET PEE EE BY 


COMPU- DRAW 
1227 Goler House ae 
Rochester, NY 14620 o 
(716)-454-3188 i 


Returns result in range 0 to mr 
radians. 

FATAN rl --- r2 
Arc-tangent, valid for all real rl. 
Leaves result in range —7/2 to 
a /2 radians. 


Required Floating-Point 

Logical Operators 

The logical operators will regard two 
real numbers as equal if they differ 
only by a small amount. This “fuzz 
factor” is related to the magnitude of 
the real numbers and is implementa- 
tion dependent. 


r---f 
True if floating-point number is 
equal to zero. The real number is 
removed from the floating-point 
stack, and the flag is left on top of 
the Forth parameter stack. 
FO< r---f 
True if floating-point number is 
less than zero. The real number 1s 
removed from the floating-point 


FO= 


CP/M® Software 


A>DBPACK: 
Mailing Lists, 
organizing data. Supports query, sort/search on 
multiple keys, 
other data base functions. $115/$25. 

A>COMCOM: 
loads/Downloads files, and more. $95/$15. 


A>CPMCPM: Transfers files (any type) between 
computers 
includes 


A>FILER: Archives, 
with substantial disk space savings. $49. 


A>BASXREF: Alphabetizes 
ences variables vs. line numbers in BASIC pro-§ 
grams. Simplifies program maintenance. $39. 


A>UNERA: Recovers erased files. $29. 


CP/M is a registered trademark of Digital Research, Inc. 


Information Manager -- Great for 


Form letters, Tabulation and 


report generation and many 


(Communication program. Up- 


with 
copy for 


incompatible disks. 
each computer. 


Sorts and Catalogs files 


and Cross-refer-§& 


in most disk formats. 


Clearly written and indexed manuals included. 
Where two prices are quoted, second refers to 
manual only (creditable towards software). 


* All packages returnable in 15 days. 


Pe ot wre sGCarar Vike Sone LAC sete AEE wee ESS, 


MasterCard, Visa & | 
= Amex cards, PO's from 
E ecosnee institutions 
alae eohoice are Siaamaee tech 
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stack, and the flag is left on top of 
the Forth parameter stack. 

F= rl r2---f 
True if floating-point number rl is 
equal to floating-point number r2. 
The real numbers are removed 
from the floating-point stack, and 
the flag is left on top of the Forth 
parameter stack. 

F< rl r2---f 
True if floating-point number rl] is 
less than floating-point number 
r2. The real numbers are removed 
from the floating-point stack, and 
the flag is left on top of the Forth 
parameter stack. 


Required Floating-Point 

Stack Operators 

FDROP I --- 
Discard floating-point number on 
top of stack. 

FDUP r---rr 
Duplicate floating-point number 
on top of stack. 

FOVER rl r2---rl r2 rl 
Copy second floating-point num- 
ber on stack to top of stack. 

FSWAP srl 1r2---r2rl 
Interchange two floating-point 
numbers on top of stack. 

FROT rl r2r3---r2 r3 rl 
Bring the third floating-point 
number to top of stack. 


Required Real-Number Handling 

FLOAT d---r 
Convert a signed double integer 
into its real-number equivalent, 
removing the double integer from 
the Forth parameter stack and 
leaving the result on the floating- 
point stack. 

FIX r---d 
Convert a floating-point number to 
the nearest signed double integer 
equivalent, removing the real num- 
ber from the floating-point stack 
and leaving the double integer re- 
sult on the Forth parameter stack. 
The direction of rounding when a 
real number lies exactly halfway 
between two integers is implemen- 
tation dependent. Underflow gives 
a zero result, overflow is an error 
condition and the value of the re- 
sulting double integer is undefined. 
Example: 2.7E0 FIX will return the 
double integer 3. 

INT r---d 
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Truncate a floating-point number 
to a signed double integer (round it 
toward zero), removing the real 
number from the floating-point 
stack and leaving the result on the 
Forth parameter stack. Underflow 
gives a zero result, overflow is an 
error condition. Example: 2.7E0 
INT will return the double integer 
pa 
F! r addr --- 
Store a floating-point number 
from the floating-point stack, at 
the address that is on the top of the 
Forth parameter stack. 
F@ addr --- r 
Fetch a floating-point number to 
the top of the floating-point stack, 
from the address that is on top of 
the Forth parameter stack. 
FCONSTANT r--- (compilation) 
---r (execution) 
A defining word used in the form: 
r FCONSTANT cccc 
When FCONSTANT is executed, 
it creates the definition ccce with 
its parameter field initialized to 
the value r. When cccc is later exe- 
cuted, the value r is left on top of 
the floating-point stack. 
FVARIABLE --- (compilation) 
--- addr (execution) 
A defining word used in the form: 
FVARIABLE cccc 
When FVARIABLE is executed, it 
creates the definition cccc with its 
parameter field explicitly unini- 
tialized. When cccc is later exe- 
cuted, the address of the parame- 
ter field is left on the stack, so that 
a F@ or F! operation may access 
this location. 


Required Floating-Point 

Number Display 

E. r --- 
Display r in exponential form. The 
mantissa contains the maximum 
number of significant digits al- 
lowed by the floating-point data 
format, and the exponent is explic- 
itly displayed even if it is zero. A 
trailing blank follows. If the cur- 
rent system base is not decimal, an 
error condition exists. For exam- 
ple, in the Micromotion imple- 
mentation 12345.67E2 E. will dis- 
play as .1234567E-07b (where 
each “‘b’’ character denotes an 
ASCII blank). 











Quick C (rc pos)....... $ 59 
e Fast compiling ‘C’ 

e Compiles directly to COM 

e Full screen editor + util. 

e UNIX 10, utility, & sci. func. 


% eijor (rc pos)....$ 49 
e Full screen ‘C’ editor 
¢ Compatible with any ‘C’ 
e based on UNIX Vi editor 


UniTools (ec pos)... .$ 49 
e make, grep & diff 


PROGRAMMING IN C (S. KOCHAN).$ 21 
KERNIGHAN & RITCHIE ‘C’ TEXT.$ 20 
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Turbo Pascal + QuickC.......... $ 99 
LIBRARY SOURCE FOR AZTEC... call 
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AZTEC C ll C compiler........... Call 
BUS CO COMpIEr oc Sos call 
SunEdit (configurable)............ $ 59 
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TX 4995812 
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F. I --- 
Display r on the currently selected 
Output device in fixed-point form; 
i.e., the location of the decimal 
point is adjusted as necessary so 
that no exponent need be dis- 
played. The number of digits spec- 
ified by the most recent execution 
of the word PLACES (see below) 
are printed to the right of the deci- 
mal point. A trailing blank fol- 
lows. For example, 4 PLACES 
1.2345E02 F. will display as 
123.4500b (where each ‘‘b” char- 
acter denotes an ASCII blank). 
PLACES 1n--- 

Set the default number of digits 
that will be printed to the right of 
the decimal point by the F. 
operator. 


Optional Floating-Point 
Commands 

The Optional words have the same re- 
lationship to the proposed Floating- 
Point Extension as Controlled Refer- 


OPT-TECH SORT™ 





SORT/MERGE program for IBM-PC & XT 


Now also sorts dBASE II files! 


e Written in assembly language for high performance 
Example: 4,000 records of 128 bytes sorted to give 
key & pointer file in 30 seconds. COMPARE! 


e Sort ascending or descending on up to nine fields 
e Ten input files may be sorted or merged at one time 
e Handles variable and fixed length records 


e Supports all common data types 


e Filesize limited only by your disk space 

e Dynamically allocates memory and work files 

e Output file can be full records, keys or pointers 

e Can be run from keyboard or as a batch command 

e Can be called as a subroutine to many languages 

e Easy to use, includes on-line help feature 

e Full documentation — sized like your PC manuals 

e $99 —VISA, M/C, Check, Money Order, COD, or PO 
Quantity discounts and OEM licensing available 


To order or to receive additional information 


write or call: 


OPT-TECH DATA PROCESSING 


ence Words have to the core 
83-Standard; that is, if the function is 
available in the system, it should have 
the name and stack effect described 
below. 


Optional Floating-Point 
Transcendental Operations 
FSINH rl --- r2 
Hyperbolic sine. 
FCOSH rl --- r2 
Hyperbolic cosine. 
FTANH rl --- r2 
Hyperbolic tangent. 
FASINH rl --- r2 
Inverse hyperbolic sine. 
FACOSH (11 --- r2 
Inverse hyperbolic cosine. 
FATANH § 1r!| --- r2 
Inverse hyperbolic tangent. 
Pi ---f 
Leave the real number z on the 
stack, represented with the maxi- 
mum precision possible in the im- 
plementation’s binary floating- 
point format. 
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Optional Floating-Point 

Logical Operators 

FO> r---f 
“True” if the floating-point num- 
ber is greater than zero. The real 
number is removed from the float- 
ing-point stack, and the flag is left 
on top of the Forth parameter 
stack. 

F> rl r2 --- f 
“True” if the floating-point num- 
ber rl is greater than the floating- 
point number r2. The real numbers 
are removed from the floating- 
point stack, and the flag is left on 
top of the Forth parameter stack. 


Optional Floating-Point 

Display Words 

Suggested error handling for floating- 
point display: if an overflow occurs 
during conversion for output, fill the 
display field with asterisks (the “*” 
character). If an underflow occurs 
during conversion, fill the display field 





do__ VISTA 


do__VISTA is the database management system that helps you easily 
define and manage databases--no matter how complex your informa- 
tion structuring requirements. By handling your routine data management 
tasks, do__ VISTA can save time and money on development of sophis- 
ticated, integrated applications. And, like your applications, it is upwardly 
compatible with Unix. Ready when you are for the operating system 


do__VISTA is the programmers DBMS with the features you need: 


* Written in C, under Unix. 

* Minimal data redundancy using 
the network database model. 

* Virtual memory disk accessing. 

* Fast B*-tree indexing method 
for key files, 

* Multiple key records--any or all 
data fields may be keys. 

* Unlimited run-time distribution 
license available for $795. 

* Three month extended 
applications support included, 

* PC-Write word processor/text 
editor included at no charge. 


Currently available for Lattice C, Computer Innovations’ C86, or DeSmet C 
under MS-DOS on the IBM PC and PC-compatibles. $495. Documentation only, $15. 
Available soon for Unix/Fortune 32:16 and Xenix/Altos 586 systems. Visa, MasterCard, 
















Raima Corporation 
11717 Rainier Ave. South 
Seattle, WA 98178 
206/772-1515 


P.O. Box 2167 Humble, Texas 77347 
(713) 454-7428 
Requires DOS, 64K and One Disk Drive 


do__VISTA. Guaranteed to broaden your horizon. 
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E.R rnl n2--- 
Display r on the currently selected 
output device in exponential form 
with nl digits to the right of the 
decimal point, right justified in a 
field of width n2. If the current sys- 
tem base is not decimal, an error 
condition exists. For example, 
1.234E0O 5 12 E.R will display as 
bb.12340E-01 (where each “b” 
character denotes an ASCII blank). 
F.R rnl n2 --- 
Display r on the currently selected 
Output device in fixed-point form 
with nl digits to the right of the 
decimal place, right justified in a 
field of width n2. Numbers that 
cannot be represented within the 
given field width are printed in ex- 
ponent form. If the current system 
base is not decimal, an error condi- 
tion exists. For example, 1.2345E2 
4 12 FR _ will display as 
bbbb1 23.4500 (where each ‘‘b”’ 
character denotes an ASCII blank). 


Optional Miscellaneous 

Real-Number Handling 

FNUMBER addr --- r 
Addr points to a counted string 
that is converted to a real number. 
The result is left on the floating- 
point stack. If the syntax of the 
string is not correct for a floating- 
point number, an error condition 
exists and the value of the result is 
undefined. 

PACK dn---r 
Collapse a signed double-integer 
mantissa and a signed single-inte- 
ger power of 10 into the corre- 
sponding real-number data for- 
mat. Implementation dependent. 

UNPACK r---dn 
Convert a real-number into a 
signed double integer correspond- 
ing to the mantissa and a signed 
single-integer power of 10. Imple- 
mentation dependent. 

F#BYTES ---n 
Constant leaving the number of 
bytes in a real number as it is rep- 
resented on the floating-point 
stack. Implementation dependent. 

F#PLACES ---n 
Constant leaving the maximum 
number of significant digits when 
a real number is converted to its 
decimal ASCII equivalent for dis- 
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play. Implementation dependent. 


Optional Error Handling for Real- 
Number Operations 

At minimum, the following error indi- 
cators should be available for inspec- 
tion by the application program: 


¢ overflow 

¢ underflow 

¢ division by zero 

* output conversion overflow 

¢ output conversion underflow 

e attempted logarithm of zero 

¢ attempted logarithm of number less 
than zero 

e attempted square root of a number 
less than zero 

¢ arcsin/arccos of argument outside 
the legal domain 


FPSTAT _ --- addr 
Addr points to an array of bits that 
contains error indicators for real- 
number operations. The number of 
flag bits and their significance is 
implementation dependent. 

FPERR rl n--- r2 
Should be a deferred or vectored 
word to allow installation of al- 
tered error handling by the user. 
rl is the result of a real-number 
operation and n indicates an error 
type. Sets an appropriate flag in 
FPSTAT and returns the real num- 
ber r2, which may or may not be 
the same as rl, depending on the 
implementation and type of error. 


Micromotion has written a Forth- 
83 implementation of this FVG 
Standard Floating-Point Exten- 
sion. Machine code versions for 
the 6502, 8086, and 68000 are 
currently available. Micromotion 
may be contacted at 12077 Wil- 
Shire Blvd., Suite 506, Los Ange- 
les, CA 90025. 


DDJ 
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NEW FEATURES 


(Free update for our early customers!) 
e Edit & Load multiple memory 
resident files. 
e Complete 8087 assembler 
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Data General Desktop Model 10 
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LEADING EDGE 
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C/UNIX PROGRAMMER’S NOTEBOOK 





by Anthony Skjellum 


Past columns have been devoted to dis- 
cussions about C and Unix as they are 
implemented in the real world. In this 
column, I depart from this precedent 
by discussing some proposals for in- 
creasing the power and flexibility of C. 
We work in an evolving field. Conse- 
quently, many languages go through 
regular upgrades and improvements 
(e.g., Fortran IV, Fortran 66 and For- 
tran 77). C has been more immune to 
change than other popular languages. 
The lack of upgrades to C is probably 
due mainly to its lack of intrinsic func- 
tions, but clearly points to the basic el- 
egance and power of C. 

I am aware of only a few upgrades to 
C beyond the language definition spec- 
ified in The C Programming Language 
by Kernighan and Ritchie. These up- 
grades involved enumerated types and 
structure assignment. Both of these 
features were introduced with Unix 
version 7 and are detailed in the docu- 
mentation for Unix version 7. 

Structure assignment is useful in 
what follows, but I will not mention 
type enumeration. Therefore, although 
we base our definition of C on the Unix 
7 version of C, this is not likely to con- 
fuse those who have access only to The 
C Programming Language. 

Purists may argue that I have no 
business recommending changes or up- 
grades to C. Others may argue that 
many of the suggestions can be imple- 
mented via compiler preprocessors or 
by function calls and need not be part of 
the language. (I'll discuss this second 
point later in the column.) In order to 
head off the criticism that I am “tam- 
pering’’ with the C language, I offer my 
recommendations in the form of a new 
language grammar that is based on C 
but called X. I chose the letter X to de- 
note language extensibility, which is the 
main point of the following proposals. 


Language Extensibility 
Most languages allow user-defined 
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functions and subroutines, and many 
newer languages allow user-defined 
data tyes. Extensible langauges such as 
Forth and APL allow functions, opera- 
tors, and data types to be added to the 
programming environment in a way 
that makes them equivalent in stature 
to predefined operations. Although C 
retains tremendous flexibility by ex- 
cluding intrinsic functions, it does not 
allow user-defined types to be treated 
as easily as ints, longs or floats. Specif- 
ically, one cannot extend the defini- 
tions of operators such as Addition or 
Multiplication to new data types creat- 
ed with Typedef. This means that 
function calls must be used. Although 
this is a viable approach, it lacks ele- 
gance. This concept is illustrated in the 
following example. 

As part of my C program, I need to 
define a data type called COMPLEX 
that will function like Fortran’s com- 
plex data type. This data type is used 
for handling complex numbers of the 
form A + B where i is the imaginary 
unit and A and B are real numbers. 
This is shown with the definition in 
Figure | (page 116). 

I will work with several variables of 
type COMPLEX (e.g., alpha and beta), 
which are defined as follows: 


COMPLEX alpha, beta; 
/* alpha and beta are complex #’s * / 


Up to this point, we have treated the 
complex data type as we would built-in 


types. We can also work with pointers 
to or arrays of COMPLEX. However, 
to assign, add, multiply, or subtract 
these COMPLEX variables, we would 
have to invent subroutines. Subrou- 
tines for two representative operations 
are illustrated in Figure 2 (page 118). 

The pseudocode presented with the 
subroutines in Figure 2 is the most 
convenient way to specify the opera- 
tions desired. If the data types had 
been intrinsic, we could have used sim- 
ilar real C statements in lieu of subrou- 
tines. To utilize +, * or other opera- 
tors with the COMPLEX data type, we 
must introduce a mechanism for defin- 
ing these operations. 


Operators 

How could we specify new operations? 
For example, how would we define Ad- 
dition for the complex data type? Fig- 
ure 3 (page 120) shows the type of def- 
inition that could be used to extend 
Addition to the COMPLEX type. 

The keyword oper is new: oper indi- 
cates that the definition following it is 
for an operator. The return keyword 
used in function calls also appears with 
a similar meaning. Because COMPLEX 
preceeds oper, this example defines an 
operation over the COMPLEX data 
type. Because there are two arguments 
(alpha, beta), the operator is binary. Fi- 
nally, note that the + sign is enclosed 
in graven accents. Quoting by graven 
accents is chosen as a way to distinguish 
operator names. We will see that quota- 


typedef struct /* complex number type definition */ 


} COMPLEX 


double _creal ; /* real part */ 
double _cimag ; /* imaginary part */ 


Figure 1 
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tion will not always be needed. 

To use this new operator—and as- 
suming that = had also been de- 
fined—the following statement could 
be used: 


gamma = alpha + beta; 
/* add complex numbers * / 


Note that we have omitted the grav- 
en accents. Because the + can be dis- 
tinguished from keywords or identifiers 
in this context, quoting is not required. 

The operator definition specified 
above gives the X compiler a means to 
evaluate the Addition request specified 
in the example statement. The parser 
would break this statement down until 
it could pass an argument garnered 
from the left and right of the Addition 
operator, much as it does with intrinsic 
operators and data types. Whether this 
results in a subroutine call or in-line 
code would depend on the compiler’s 
implementation. 


More on Operators 

Operators are a powerful and useful 
concept. We needn’t limit ourselves to 
defining standard operations for new 
types. There is nothing to stop the defini- 
tion of arbitrary operators. A crude fa- 
cility already exists for this in C via the 
parameterized #define statement. How- 
ever, facility just discussed is more gen- 
eral and more consistent with the syntax 
of C than the preprocessor #define ap- 
proach. To encompass the generation of 
in-line code as provided by #define, we 
would also offer the inline adjective, 
which could be used as follows: 


COMPLEX inline oper 
‘—(alpha, beta) 
/* subtraction inline * / 


This keyword would instruct the 
compiler to generate in-line code (as 
opposed to a subroutine call) whenever 
possible. Its use is analogous to the use 
of the register adjective: the compiler 
complies when feasible and ignores the 
request when it cannot comply. 

In some cases, C definitions can be 
shortened when no ambiguity exists 
(e.g., “unsigned” instead of “unsigned 
int’). Therefore, “inline” would re- 
place “inline oper” in actual practice. 
Furthermore, operators would, by de- 
fault, work on and return integers, as 
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functions do by default. 


Other Uses for Operators 

In my view, operators would be used 
not only to define existing operations 
over new data types, but also for speci- 
fying other operations over new as well 
as existing data types. These new oper- 
ators would normally have alphanu- 
meric names and would thus require 
quoting in graven accents when they 
appear in expressions. For example, we 
define the operation of NAND (negat- 
ed and) for integers as follows (no 
graven accents are required in the defi- 
nition, but they are required in the in- 
vocation below): 


int oper nand(a,b) 
int a,b; 


To use this in an actual expression, 
we would have to quote the nand: 


return( (a & ee eS 


PC FORTH'™ 
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Operator Hierarchy 

C already has a built-in hierarchy for 
known operations. The most reason- 
able approach is to give user-defined 
operators the lowest priority. This 
might require more parentheses, but 
seems logical. 


Pointers to Operators 
C provides the facility to use pointers 
to functions. It could potentially prove 
useful to have pointers to operators as 
well. You specify a function’s address 
by its name without trailing parenthe- 
ses. Unfortunately, operator names are 
used in this way to indicate the opera- 
tion they represent. In order to remove 
the ambiguity in requesting the point- 
er, the operator name could be paren- 
thesized—for example; (+) or 
(nand ). 

Using pointers to operators implies 
that defined operations must have sub- 
routines associated with them. Thus, 
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| truly in-line operators could have no 
pointers associated with them. 


Dichotomy of 

Operators and Functions 

Functions and operators are almost the 
same thing. However, the compiler 
must know if an operator is binary or 
unary. Therefore, the operator defini- 


tion must be available before you use 
it. On the other hand, arguments to C 
functions are not checked for number 
or type. Therefore, we choose to keep 
operators and functions separate, al- 
though there is nothing to prevent op- 
erators from using function calls. 

In order to avoid lexical conflicts, 
operator and function names would 


Assignment: alpha = A + iB; /* pseudo code */ 


Function: 
calling sequence (K&R C): 
calling sequence (Unix 7 C): 
function definition (K&R C): 
cassign(comp,a,b) 
COMPLEX *comp; 
double a,b; 


{ 


comp—>__creal = 4a; 
comp—>__cimag = b; 


function definition 
COMPLEX cassign(a,b) 
double a,b; 


(Unix 7 C); 


cassign(&alpha, A,B); 
alpha = cassign{A,B); 


COMPLEX temp; /* temporary variable */ 


temp._creal = a; 
temp._cimag = b; 


return(temp); /* return structure */ 


} 


Addition: gamma = alpha + beta; /* pseudo code */ 


Function: 
calling sequence (K&RC): 
— callingsequence = (Unix 7 C): 


function definition (K&R C): 


cadd(gamma,alpha,beta) 


cadd(&gamma, &alpha, &beta); 
gamma = cadd(alpha,beta); 


COMPLEX “gamma; /* destination */ 
COMPLEX *alpha; /* addend */ 
COMPLEX *beta; /* augend */ 


{ 


gamma-—>-__creal = alpha—>_creal + beta—>_creal 


function definition 


(Unix 7 C); 
COMPLEX cadd(alpha,beta) 


gamma-—>_cimag = alpha—>_cimag + beta—>_cimag 


COMPLEX alpha,beta; /* addend, augend */ 


{ 


‘COMPLEX temp; /* temporary */ 
temp._creal = alpha._creal + beta._creal: 
temp._cimag = alpha._cimag + beta._cimag; 


return(temp); 


Figure 2 


have to be different. This is also desir- 
able from a programming viewpoint, in 
order to avoid confusion and errors. 


Other Proposals 
With the addition of operators, the X 
grammar provides a much more con- 
sistent programming environment 
than standard C. However, there are 
some other points that deserve consid- 
eration. The first of these is the need to 
provide a means to handle subroutines 
with a variable number of arguments. 
Because C makes no assumptions 
about its function library, the user is 
free to write his own library, should the 
standard functions prove inadequate. 
However, the user cannot properly 
handle functions that have variable 
numbers of arguments, as must be 
done by printf( ), scanf( ), and their 
relatives. We solve this problem by in- 
troducing a typing adjective called vec 
(vector). This adjective is used to indi- 
cate that the number of arguments to 
the function is variable. For example, 
the fictitious function my_printf( ), 
which allows variable arguments (and 
returns an integer), would be defined 
as follows: 
vec int my_printf(argcent,argvec) 
int argent; 
char *argvec| ]; 


/* code goes here */ 

A function declared with vec always 

has two arguments: argent and argvec. 

These variables are analogous to 

main( )’s (argc,argv) pair. Before use, 
a definition of the form: 


vec my_printf( ); 


would be included in each file where 
my_print( ) is referenced. This defini- 
tion causes command line arguments 
to be processed normally; the right- 
most argument is pushed (placed on 
the stack) first and the leftmost last 
when code is generated. However, the 
two additional arguments argent and 
argvec are also stacked. The argvec 
variable points to the stack location 
where the first real argument is locat- 
ed. Since normal stacks are push- 
down, this should provide the argu- 
ments in the correct order—argent 
contains the number of arguments plus 
one to account for argvec. This makes 
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COMPLEX oper °+ (alpha,beta) /* X 
grammar */ 
COMPLEX alpha,beta ; 


{ 
COMPLEX _ _temp; /* temporary 


a 

__ _temp._creal = alpha._creal + beta._creal : 

— —temp._cimag = alpha._cimag + beta._cimag ; 
return(_ temp) ; /* return result */ 


Figure 3 
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it completely analogous to argc. The 
argument argvec always contains an 
address, but this is not very useful if no 
arguments were specified in the func- 
tion call. 

To illustrate the stacking mecha- 
nism, imagine that we _ invoke 
my_printf( ) as follows: 


my_printf( )(argl,arg3,arg4,arg5) ; 


For this specific call, the stacking ar- 
rangement (excluding any special regis- 
ter saves) woud look as specified in Fig- 
ure 4. Note that argent is six (five 
arguments) for this case, as described 
above. 

It might be worthwhile to have vari- 
able argument calls, even if the func- 
tion were not declared as using this 
calling convention. To allow this, we 
introduce the ellipsis (...) concept 
into the argument string. If 
my_printf( ) were not declared as vec, 
we could force a variable argument 
format as follows: 


my_printf( ) 
(argl,arg2,arg3,arg4,arg5... ); 


Including the ellipsis mark for this 
variety of call seems to improve read- 
ability, but is not required for compati- 
bility with current C usage. 


Fixed Arguments 

The argvec variable always points to 
the first variable specified in the func- 
tion call. However, the function defini- 
tion could still explicitly declare a fi- 
nite number of arguments that it may 
wish to examine directly. For example, 
if the first argument of my_printf( ) 
were a control string, we could declare 
my_printf( ) as shown in Figure 5. 

Notice that the contents of con- 
trol_string would be meaningless if 
argcnt were less than two. 

One final note about variable argu- 
ment control: it enhances a function’s 
abiliity to detect incorrect input. With 
reference to printf( ), Kernighan and 
Ritchie state: ““A warning: printf uses 
its first argument to decide how many 
arguments follow and what their types 
are. It will get confused if there are not 
enough arguments or if they are the 


wrong type.” 
If implemented with the vec arrange- 


ment, printf( ) could at least know if it 
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has been given the right number of ar- 
guments. It still would not know if they 
were of the correct types. 


Variable-length Automatic Arrays 
Another element of the X grammar is 
its ability to declare automatic arrays 
that possess variable length. Because 
stack displacements are computed at 
each entry to a block, a computed size 
allocation is forced. At worst, a memo- 
ry allocation mechanism must be tied 
into the compiler. This latter restric- 
tion can be serious if C is used in a 
very-low-level environment, such as in 
operating system development. So that 
the use of this feature can be seen 
readily, we require the use of the var 
adjective in conjunction with such def- 
initions. For most purposes, the feature 
is a welcome enhancement. Where it is 
inappropriate, this feature should be 
disabled via a compiler switch. 

As a general example, we declare a 
variable-length array in the routine in 
Figure 6 (page 122). 


A New Looping Structure 

Many loops are unconditional, with 
breaks generated only from within. 
Therefore, it is often useful to have an 
unconditional looping command. This 
avoids a lot of while(1) sequences. The 
command could be implemented as 
follows: 


loop 


replaces 
while(1 ) 


Preprocessors 

and Related Comments 
Preprocessors could be used to imple- 
ment several of the X features men- 
tioned above. The statements and ex- 
pressions would be expanded by the 
preprocessor into standard function 
calls. The preprocessor would also pro- 
vide subroutines from definitions as 
needed. New data types could certainly 
be handled in this way. However, 
changes to the C parser must be made in 
order to handle the vec and var features. 
Trivial additions such as loop can be 


)  S6ge:. 
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| __ High memory 


Memory Layout for a variable argument function call 


Figure 4 


vec int my_printf(argent,argvec,control_string) ; 
int argent ; 

char **argvec ; 

char *control_string ; 





/* declare an array of integers one larger than argument */ 
array_test(length) 

int length ; 

{ 


var int test[length+ 1]; /* declare array */ 


Figure 6 
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handled with the existing C 
preprocessor. 

Some programmers may argue that 
no additions are needed, because most 
of the features outlined above can all 
be achieved through function calls. In 
my view, the X grammar makes C 
more (and not less) consistent because 
it allows intrinsic and user-defined 
types to be handled similarly. It also 
allows greater portability by defining a 
means through which variable argu- 
ment functions can be handled uni- 
formly. In summation, it turns C into 
an extensible language while adding 
only a few new keywords. 


Conclusion 
In this column, I have suggested an en- 
hanced C grammar, which was denoted 
X to indicate extensibility. It is the 
(Unix 7) C language with enhancements 
designed to allow the incorporation of 
user-specified operators into programs. 
This should provide more flexible and 
consistent reference to user-defined data 
types. Also mentioned were variable- 
length automatic arrays (var) and a 
mechanism for allowing variable argu- 
ment functions (vec). Finally, the use of 
preprocessors for implementing these 
ideas was mentioned. 

I look forward to any other ideas 
about X or enhanced C that may be 
forthcoming from readers. DD} 
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stand alone programs or as subroutines to Pascal programs,.Aemajor subserofthe C defined by K & R. Includes a 24 page users quide. 

‘Te. [fe Source code for libraries is included Only $49.95 

© ASSYST: The Assembler Syste - A complete 602 editor / assembler and lister for APPLE DOS 3.3. Menu driven. excellent error 
code for alpregrams!Grearforbeginners Only $23.50 

@ THUNDER XREF .- A cross reference utility for APPLE Pascal 1.1. XREF generates eress¥eferenes for each procedure. Source code 


and documentation provided. Only $19.95 


Thunder Software POB 31501 Houston Tx 77231 713-728-5501 
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A Reference Journal for Users of Home Computers 


Volume Six 


Vol. 1 1976 

The material brought together in this volume chronicles the 
development in 1976 of Tiny BASIC as an alternative to the 
‘finger blistering,’’ front-panel, machine-language program- 
ming which was then the only way to do things. This is al- 
ways pertinent for bit crunching and byte saving, language 
design theory, home-brew computer construction and the 
technical history of personal computing. 

Topics include: Tiny BASIC, the (very) first word on CP/M, 
Speech Synthesis, Floating Point Routines, Timer Routines, 
Building an IMSAI, and more. 


Vol. 2 1977 

1977 found DDJ still on the forefront. These issues offer re- 
finements of Tiny BASIC, plus then state-of-the-art utilities, 
the advent of PILOT for microcomputers and a great deal of 
material centering around the Intel 8080, including a com- 
plete operating system. Products just becoming available for 
reviews were the H-8, KIM-1, MITS BASIC, Poly Basic, and NIBL. 
Articles are about Lawrence Livermore Lab’s BASIC, Alpha- 
Micro, String Handling, Cyphers, High Speed Interaction, 
1/O, Tiny Pilot & Turtle Graphics, many utilities, and even 
more. 


Vol. 3 1978 

The microcomputer industry entered its adolescence in 1978. 
This volume brings together the issues which began dealing 
with the 6502, with mass-market machines and languages to 
match. The authors began speaking more in terms of tech- 
nique, rather than of specific implementations; because of 
this, they were able to continue laying the groundwork in- 
dustry would follow. These articles relate very closely to what 
is generally available today. 

Languages covered in depth were SAM76, Pilot, Pascal, and 
Lisp, in addition to RAM Testers, S-100 Bus Standard Propos- 
al, Disassemblers, Editors, and much, much more. 
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BOUND VOLUMES 


Every Issue Available For Your Personal Reference. 


Vol. 4 1979 


This volume heralds a wider interest in telecommunications, 
in algorithms, and in faster, more powerful utilities and lan- 
guages. Innovation is still present in every page, and more 
attention is paid to the best ways to use the processors 
which have proven longevity—primarily the 8080/Z80, 
6502, and 6800. The subject matter is invaluable both as a 
learning tool and as a frequent source of reference. 

Main subjects include: Programming Problems/Solutions, 
Pascal, Information Network Proposal, Floating Point Arith- 
metic, 8-bit to 16-bit Conversion, Pseudo-random Se- 
quences, and Interfacing a Micro to a Mainframe—more than 
ever! 


Vol. 5 1980 

All the ground-breaking issues from 1980 in one volume! Sys- 
tems software reached a new level with the advent of CP/M, 
chronicled herein by Gary Kildall and others (DDJ's all-CcP/M 
issue sold out within weeks of publication). Software porta- 
bility became a topic of greater import, and DDJ published 
Ron Cain’s immediately famous Small-C compiler—reprinted 
here in full! 

Contents include: the Evolution of CP/M, and CP/M-Flavored 
C Interpreter, Ron Cain’s C Compiler for the 8080, Further 
with Tiny BASIC, a Syntax-Oriented Compiler Writing Lan- 
guage, CP/M-to-UCSD Pascal File Conversion, Run-time Li- 
brary for the Small-C Compiler and, as always, even more! 


Vol. 6 1981 

Microcomputing was entering a technical maturity in 1981, 
while continuing to break new ground. This volume includes 
Dr. Dobb’s first all-FORTH issue and the first Dr. Dobb’s 
“Clinic’’ columns. There is continued coverage of CP/M and 
Small-C development, along with J.E. Hendrix's Small-VM 
and Santa Barbara Tiny BASIC for 6809—all here in one giant 
volume. 

Articles include: Pidgin—A Systems Programming Lan- 
guage, The Conference Tree, Write Your Own Compiler with 
META-4, several exciting Z80 utilties, North Star tidbits, and 
more! : 


YE Ss! [] Please send me the following Volumes of Dr. Dobb’s Journal. 


= [] ALL 6 for ONLY $125, a savings of over 15%! 





Vol. | MS S23 75 oe 
Payment must accompany your order. Vol. 2 x $2375 = 
Please charge my: [] Visa (| MasterCard Vol 302 3 XS IS = 
lenclose [] Check/money order Vol. 4. x SZ Ss = 
Vol. 5 xX S238-/9 > 
Card # Expiration Date Vol. 6 %: SPF. Foe 
All 6 x $125.00 = 
Signature 
Sub-total $ 
Nae Postage & Handling 
City State Zip Must be included with order. 


Mail to: Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 


Allow 6-9 weeks for delivery. 


Please add $1.25 per book in U.S. 
($2.00 each outside U.S.) 


TOTAL $ 
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by Michael Wiesenberg 


FIG Member Services 


The Forth Interest Group (FIG) 
wants you to join up, and its newly 
elected board is emphasizing member 
services as one of its prime objectives. 
The services of this nonprofit, member- 
supported organization of more than 
4800 members and 53 chapters world- 
wide include publication of FORTH 
Dimensions, the FIG-Tree (on-line 
computer data base), a job registry, 
various conferences, user library, mem- 
bership directory, speaker bureau, cat- 
alog of software, educational tapes, 
and the annual Forth Convention (No- 
vember 16-17 in Palo Alto, Califor- 
nia). You get it all for $15 a year ($27 
foreign). Reader Service No. 101. 


Four Times the Forth 


FourByteForth, from Software Ar- 
chitects, is a 32-bit Forth for 68K 
machines. It runs under CP/M-68K or 
boots directly on the Sage Computer. 
Your $250 gets you a full-screen edi- 
tor, full-screen debugger, interpreter, 
compiler, decompiler, assembler, and 
user manual. It’s supposed to be fast; 
the company claims it compiles 125 
screens per minute. Reader Service No. 
103. 


More Freeware 


I’m highly in favor of programs you 
get for the cost of a diskette—or free if 
you supply diskette and postage—and 
then pay for if you like. Charter Soft- 
ware offers PC - General Ledger for 
the IBM PC and PC compatibles. The 
program is a cash-receipts journal, 
check register, journal entry, trial bal- 
ance, and financial-statement system 
that also prints checks. If you like it, 
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you send in $50, and then you also get 
enhancements, updates, phone support, 
and the manual. Reader Service No. 113. 





Fortran 77 Library 


Peerless Engineering Service offers a 
Fortran 77 Scientific Subroutine 
Library for MSDOS and PCDOS, us- 
ing Microsoft Fortran 3.13, with 114 
scientific subroutines, from statistical 
to numerical analysis. It includes solu- 
tions to third-order differential equa- 
tions, solutions to m equations in n 
unknowns, and various approxima- 
tions. Need most flavors of loga- 
rithms, including operations on com- 


plex numbers? Multiple and linear 
regressions? Fourier analysis? All 
here. Order directly for $49.95 
through the firm’s toll-free number. 
Reader Service No 119. 


More for C64 


Practicorp offers several products of 
interest to Commodore 64 owners. 
PractiFile is a data base program that 
handles lists and numbers. The pro- 
gram is designed to handle inventory 
control, mailing lists, accounts receiv- 
able and teachers’ grade books; it also 
monitors charge accounts and bank 
balances and prints mailing labels or 


Breadboard It Yourself 


eZ BOARD, from Sabadia Export, 
provides breadboardng for the 
masses—a glass epoxy PCB with sol- 
derless breadboarding units for build- 
ing circuits—that allows you to make 
your own experimental add-ons for 
personal computers. The product con- 
tains four separate distribution buses 
with 50 tie points each. You get 2090 
tie points with a capacity of 24, 14-pin 
DIP switches. The company says you 
simply plug in components with lead 


diameters up to .032 and connect 
them with ordinary, solid hookup 
wire. (The firm didn’t say .032 what. 
Do you suppose it meant inches? Or 
maybe .032 angstroms?) Models IPC, 
APC, and CPC are available for IBM 
PC, Apple, and Commodore systems 
(and all hardware-compatible com- 
puters of each type), and more are 
coming. Send $174.95 plus $5 ship- 
ping to get board, cable, and connec- 
tors. Reader Service No.111. 
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statistical reports. It interacts with 
other Practicorp software products, 
plus various word-processing pro- 
grams. The company claims Practi- 
File is easy to use, that its ability to 
handle more than 1000 mailing-list 
records exceeds the capacity of other 
DBMS programs for the C64. Fields 
can be of random size, and maximum 
record size is 254 characters. Sorts are 
fast, and you can specify up to five 
nested keys. You can have multiple 
lines per record and use arithmetic 
functions on columns. The disk costs 
$55. Reader Service No. 107. 

64 Doctor is a diagnostic program 
that looks at the system’s hardware 
and pinpoints malfunctions involving 
keyboard, audio, video, joystick, RS- 
232 port, disk drive, printer, RAM, or 
cassette player. It’s $29.95 on disk and 
$24.95 on tape. Reader Service No. 109. 


Insured Against 
Infringement 


This month’s unusual claim is that IBM 
PC-compatible ROM BIOS software 
from Phoenix is insured against in- 
fringement suits. Just think how much 
better Franklin’s financial position 
would have been had it insured its 
operating system. If you’re an OEM 
who needs unlimited licensing on this 
product, $290,000 will do the trick. I 
like to let DDJ readers in on these little 
bargains. Reader Service No. 115. 


Word Processing on the 
C64 


Commodore 64 owners sometimes 
sneer knowingly when someone talks 
of word processing on the C64; those 
sceptics cite the machine’s limitation 
of file size to a maximum of about 
seven pages and its inability to display 
80 characters without an 80-column 
board. Muse Software claims its Su- 
per-Text addresses those and other 
problems. For $99, you get unlimited 
document size, multiple-file search 
and replace, split-screen abilitiy, 80- 
column display without additional 
hardware, on-screen formatting, on- 
screen help, word wrap, and single- 
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key commands. The product is also 
available for Atari 400/800/1200XL 
computers, but without the split- 
screen feature or 80-column ability. 
An IBM PC version of Super-Text has 
just been published. The original ver- 
sion, for the Apple II and Ile, is a 
perennial bestseller. The Apple and 
IBM PC versions each cost $175. Read- 
er Service No. 105. 


Old Fortrans for New Cs 


Don’t throw away your old Fortran 
code just because you're updating toa 
trendy new C environment. FOR- 
TRIX, from Rapitech Systems, con- 
verts Fortran programs and files to 
maximally portable C code. The new 
C code retains the essence of the 
original Fortran source, fully struc- 
tured and parallel to the original, yet 
in functionally equivalent C state- 
ments. It costs $2500, configured, the 
firm says, for “various” Unix environ- 
ments. Reader Service No. 121. 


TX and Tingler! on 3000 


TpXies will be pleased to hear they can 
now get TeX for their HP-3000s, from 
TeXeT, and produce flawless, typeset- 
quality documents. They can enter 
those documents from any terminal 
and print them on HP laser printers. 
More than 50 fonts are available, in 
point sizes from 5 to 72, with special 
mathematical and language symbols. 
The license fee is $1600, including a 
software device driver for a daisy- 
wheel printer; you'll pay $1600 more 
for the laser printer driver. 

Tingler!, from TeXeT, gives informa- 
tion on run-time behavior of programs 
on the HP-3000. You can optimize and 
resegment programs based on this in- 
formation; the information includes 
how many times each procedure and 
system intrinsic was called and where 
it was called from, how many interseg- 
ment transfers there were and where 
they occurred, and how much CPU 
time was expended in each procedure 
and intrinsic. Tingler! also detects logic 
errors and redundant code. It analyzes 
the program by patching itself into a 


copy of the executable program file, 
collecting performance data during a 
normal run of the program, and pro- 
viding an off-line analysis—all without 
requiring recompilation of the pro- 
gram. License fee is $1000. Reader 
Service No. 117. 





Go East, Young 
Programmer 


One of the most interesting computer 
conferences of the year is likely to be 
Computer China, to be held in Xia- 
men Special Economic Zone in the- 
Peoples’ Republic of China from No- 
vember 25 to December |. This event 
is sanctioned by the Ministry of Elec- 
tronics and backed by the China Mi- 
crocomputer Applications Associa- 
tion, the China Research Society for 
Modernization of Management, and 
the China Instrument Society. Reader 
Service No. 125. 

Another interesting conference, also 
to be held in the Orient, is billing 
itself as the first to be held on a ship. 
The AFIPS-ASIA '85—“The First 
Floating Shipboard Computer 
Expo”’—is sponsored by the American 
Federation of Information Processing 
Societies (AFIPS). The ship, the 
World Wide Expo, has two large exhi- 
bition halls, five conference rooms, 
several international restaurants, and 


4=20 ? 
4 the VIC! 
VIC FORTH’ for the VIC 20 


VIC FORTH cartridge $14.25 


memory expansion optional 


Starting FORTH by L. Brodie 
softcover book/recommended 


$18.50 


BOTH TOGETHER (mention this ad) 
PA residents add 6% 


$30.75 


Please request our free VIC brochure 


naigpas) EMGE ASSOCIATES 
mus FO: Box 17330 
visA Pittsburgh, PA 15235-0330 


VIC FORTHSHES VIC Commodore 
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|_| PACK I: Building Blocks! Object 
290 Functions: DOS, $99 

Printer, Video, Asynch Source 
$149 


|_| PACK 2: Database Object 
100 Functions: B-Trees. $149 

Variable Records Source 
$Call 


|_| PACK 3: Communications Object 
135 Functions: Smart- $149 
modem"™, Xon/Xoff, Source 
Modem-7, X-Modem $Call 


|_| PACK 4: Building Blocks Il Object 
100 Functions: Dates, $129 
Text Windows, source 
Data Compression $Call 


| | PACK 5: Mathematics | Object 
35 Functions: Log, Trig, $99 

STOVE coma releyt source 
$Call 


| | PACK 6: Utilities | Object 
35 Functions: Archive, DIR $99 

Manipulation Source 
$Call 


NOTE: Above Packs for Lattice’ Compiler on 

IBM PC/XT ™ 

To Follow: Graphics, Advanced Math, Other 
Compilers and Hardware 

Prices above for single user, multi user 

[ottaeme\Veliele)(s 

Ol irellaerlcets accepted YAUOR ET Tele PAW Este 

add 5%) 


Es SOFTWARE 
HORIZONS 
| ire 


165 Bedford Street 
Burlington, Mass. 01803 
(617) 273-4711 
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private businessrooms. It leaves Tokyo 
on February 14, 1985, stops at Osaka 
and Kitakyushu (Japan), Taipei, and 
Hong Kong, and docks in Singapore 
on March 2. AFIPS, by the way, is 
comprised of the folks who bring you 
NCC and the Office Automation Con- 
ference (OAC). Reader Service No. 127. 





IEEE Confers with ACM 


Allow me to be the first to announce 
that the world’s two largest profession- 
al societies for computer scientists and 
engineers, the Association for Comput- 
ing Machinery (ACM) and the Insti- 
tute of Electrical and Electronics Engi- 
neers (IEEE), will hold their first joint 
annual technical conference. Sched- 
uled to be held in November, 1986, the 
gathering is to be called the Fall Joint 
Computer Conference (FJCC). The 
two organizations have combined 
membership ofmore than 125,000. 
Reader Service No. 123. 


Contact Points 


Association for Computing Machinery 
(ACM), 11 West 42nd St., New York, 
NY 10036; (212) 869-7440. 


American Federation of Information 
Processing Societies (AFIPS), 1899 
Preston White Drive, Reston, VA 
22091; (703) 620-8900. 


Charter Software, Box 70, Monticello, 
IL 61856; (217) 762-7143. 


Computer China, c/o Kallman Asso- 
ciates, 5 Maple Court, Ridgewood, NJ 
07450; (201) 652-7070. 


Forth Interest Group, Box 1105, San 
Carlos, CA 94070; FIG Hot Line: 
(415) 962-8653. 


Institute of Electrical and Electronics 
Engineers Computer Society, 1109 
Spring St., Suite 300, Silver Spring, 
MD 20901; (301) 589-8142. 


Muse Software, 347 North Charles 
Street, Baltimore, MD 21201; (301) 


659-7212. 


Peerless Engineering Service, 5819 So- 
quel Drive, Soquel, CA 95073; (408) 
462-0330, or for orders, call (800) 
824-7888, Operator 419. 


Phoenix Software Associates, Ltd., 
1420 Providence Highway, Suite 260, 
Norwood, MA 02062; (617) 769- 
7020. 


Practicorp International Inc., The Silk 
Mill, 44 Oak Street, Newton Upper 
Falls, MA 02164, (617) 965-9870. 


Rapitech Systems, Inc., 565 Fifth 
Ave., New York, NY 10017; (212) 
687-6255. 


Sabadia Export Corp., Box 1132, 
Yorba Linda, CA 92686; (714) 630- 
9335. 


Software Architects, 1912 Grant, 
Berkeley, CA 94703; (415) 549-3185. 


TeXet Company, 163 Linden Lane, 
Mill Valley, CA 94941; (415) 388- 
8853. 


DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 198. 


80 CHARACTER VIDEO BOARD 
e WORDSTAR/GBASE II OPTION 
e TYPE AHEAD KEYBOARD BUFFER 


e 25 LINE NON-SCROLL OPTION 

e Z80 CPU and 8275 CRTC _ S-100 

¢ CHARACTER GRAPHICS 

¢ ADAPTABLE SOFTWARE 

e ORDER ASSEMBLED & TESTED OR 
PRE-SOLDERED (ADD YOUR IC’s) 


VDB—A2 bare board from $49.50 


Simpliway PRODUCTS CO. 
(312-359-7337) 


P.O. BOX 601, Hoffman Estates, IL 60195 
add $3.00 S&H, 3% for Visa or Mastercard 
Illinois Res. Add 6% Sales Tax 
WORDSTAR is a trademark of MicroPro INTERN’L CORP. 
dBASE is a trademark of ASHTON-TATE CORP. 
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We thought about calling it MacSimplex... 
after all it makes your IBM®PC behave like a 
Macintosh™ and much more... 


and with over two years in the making, the Simplex 
Database Management System has features like 
32-megabyte virtual memory and the most powerful 
networked/relational database in the microcomputer 
industry. Simplex was designed around how you 
think and the Macintosh way, so that you can use 
your favorite mouse to handle those mundane tasks 
like menu selection and data manipulation. And, if 
you don’t have a mouse, you can use our keyboard 
mouse simulator, MouSim™. 


Pop-up and pull-down menus, dialog and alert boxes 
are not just added features, they are the heart of the 
Simplex way. In addition, Simplex gives you both a 
software and a hardware floating point capability, 
each with 19-digit accuracy. It permits login, 
password, privilege, and can be used on a local area 
network. Simplex has full communications and a 
remote or local printer spooler. Above all, Simplex is 
modular and grows with you! Simplex also has a 
full-featured, English-like language which is simple 
to use. 


- ‘sivtual seners, a database, 1$-dig 





You can’t buy Simplex™, but it is now available as an integral part of 
it's my Business™ and will be used by it’s my Word™, it's my Graphics™, ... 


Businessmen! it’s my Business will revolutionize the 
way that you handle your business. It saves time, 
money, and standardizes your system for all who use 
it. it’s my Business comes with applications like 
accounting, interoffice or intraoffice mail, editing, 
invoicing, inventory managment, mail list, calendar, 
scheduler, forms and more. You can modify each of 
these to create applications specifically designed for 
you... maybe we should have called it ‘it’s your 
Business ’’. 


Professionals! it’s my Business has over 200 pages of 
examples and demonstrations to show you how to 
solve your everyday professional problems. And if 
these examples aren’t enough, we give you a 
complimentary one-year subscription to Questalk™, 
our hands-on Simplex applications magazine. 


jl 





System integrators and consultants, beware! If you 
are not using it’s my Business with Simplex to solve 
your problems, don’t be surprised when more novice 
programmers solve that complex math, industrial 
engineering, or business problem faster. We think 
that you can cut your concept-to-development time 
by an order of magnitude! 


it's my Business (includes it’s my Editor) - $695.00 
it's my Business Demo Disk - $20.00 
it’s my Editor - $100.00. 


Quest Research software is available through your local computer store or through mail 
order from Quest Software Corporation at (205) 539-8086. 303 Williams Avenue, 
Huntsville, AL 35801. 


Value added resellers and dealers please contact Quest Research, Incorporated at 
(800) 558-8088. 303 Williams Avenue, Huntsville, AL, 35801. 


™ 


a eeneallllicssend 


Quest Research Inc. 


IBM is a registered trademark of International Business Machines. Macintosh is a trademark of Apple Corporation. it’s my Business, it’s my Word, it’s my Graphics, 
it’s my Editor, it’s my Home, it’s my Voice, it’s my Ear, it’s my Statistics, Simplex, MouSim, Questalk, and the Quest logo are trademarks of Quest Research, Incorporated. 
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This is THE PASCAL COMPILER 
You've Been Hearing About 


“Tt’s almost certainly better 
than IBM’s Pascal for the PC... 


Recommended.”’ 











Jerry Pournelle 
Byte, May 1984 


$49.95 


“If you don’t have CP/M [for 
your Apple], Turbo Pascal is 
reason enough to buy it.’’ 


VERSION 2 QO Softalk Apple, eae 1984 







A ... an excellent product at an extraordinary price.” 
ap David D. Clark, Dr. Dobb’s Journal, June 1984 


And Now It’s Even Better 
Than You’ve Heard! 


° Windowing (IBM PC, XT, jr. or true compatibles) 

¢ Color, Sound and Graphics Support (IBM PC, XT, jr. or true compatibles) 
¢ Optional 8087 Support (available at an additional charge) 

e Automatic Overlays 

e A Full-Screen Editor that’s even better than ever 

¢ Full Heap Management—via dispose procedure 

e Full Support of Operating System Facilities 


° No license fees. You can sell the programs you write with Turbo Pascal without extra cost. 


Yes. We still include Microcalc . . . the sample hey oes written with Turbo Pascal. You can study the 
source code to learn how a porcadahece | is written . . . it’s right on the disk.* And, if you’re running Turbo 
Pascal with the 8087 option, you’ll never have seen a spreadsheet calculate this fast before! 

one Commodore 64 CP/M. 


Order Your Copy of TURBO skoapeaions VERSION 2.0 Toc ay. 

r ISA and MasterCard orders call toll free: a 80095 5-80 1S 

| . In California: | 2 a ‘800-7 

en. 24 hes z Gaye? a Ge — _ ae pele! & ‘Dachau noe 


So ————r—s—s———i e———CCN “eee 































| Money Order —_ My system. is: 8 bit 2 
Gpaodtng at S.orders. Shipped VISA Master(ard Operating System: CP/ M 8 


ee UPS) Cad go paae  e DOS PCD 
Turbo Pascal z.0 0 $49. 95+ $5.00 Exp. date: _ - 


e One (please add $5.00 for ship- Check 




















Copa. | ee 
_Turbo Pascal with 8087 support a Disk Format: ee _.. & 
$89. J $5. O00 i Val : Please be sure model mabe forma are correct. _ 2 “6 
_ Update (1.0 to 2.0) Must be accom- BORLAND Name: | LW : x : se 2 
panied by the original master $29.95 INTERNATIONAL Address: . — 
| + $5.00 Borland International _ : — 
: 7 ip: 
2 Update (4.0 to 8087) Must be 4113 Scotts Valley Drive arias is aS 
Scotts Valley, California : as 
~ ex Ge ae a) theprighnal setter TELEX: 172373 | California residents add 6% salés tax. Outside U.S.A. add $15.00 (if 


outside of U.S.A. payment must be by bank draft payable in the us. 


- a and in U.S. dollars.) Sorry, no C.0.D. or Purchase Orders. “ELI . 
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